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Preface 


BASIC has long been the language most used for personal pro- 
gramming. Most personal computer users have learned to pro- 
gram in BASIC because it is easy to learn and use. Over the years, 
many BASIC dialects have emerged from the first simple version. 

QuickBASIC from Microsoft takes a giant leap beyond yester- 
day's BASIC, which was designed for beginners, to a truly struc- 
tured and powerful, professional language. Since it has its roots in 
Microsoft BASIC, it is still easy to learn and use. Most of your own 
BASIC programs can be run from QuickBASIC. However, you will 
soon be rewriting old BASIC programs to take advantage of Quick- 
BASIC's advanced features. 

Using QuickBASIC 4.5, you can edit, compile, run, and debug 
programs within a single environment. All of QuickBASIC's pro- 
gramming tools are contained in one integrated package, ready for 
use at any time. 


About This Book 


This book assumes that you have previously programmed in some 
version of BASIC. If you have used some form of Microsoft BASIC, 
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that will be even more helpful. An elementary knowledge of the 
Microsoft Disk Operating System (referred to in this book as MS- 
DOS) is also assumed. 

The disks containing the language and supporting files provide 
a powerful programming package. Included on the disks are three 
files that provide instant on-line documentation. These files pro- 
vide help in crucial situations. One provides summaries and syntax 
descriptions of QuickBASIC statements and functions; another 
provides information on using QuickBASIC statements and func- 
tions (including code examples that you can copy and run); and the 
third gives explanations of QuickBASIC menus, commands, dialog 
boxes, and error messages. In addition, the QuickBASIC manuals 
Learning to Use Microsoft QuickBASIC and Programming in BASIC 
cover many aspects of the language. 

This book offers a different point of view and a different ap- 
proach to learning how to use the massive amount of information 
available from Microsoft's manuals and disks. A background is laid 
in the early chapters to provide readers with a common base from 
which to start. From this point a smooth transition to the rich 
language elements of QuickBASIC can be made. 

The book contains many demonstration examples and pro- 
grams to simplify the explanation of QuickBASIC procedures, 
statements, and functions in a meaningful context. Screen displays 
are used to show what is happening at critical stages in the devel- 
opment of the demonstrations. 

As you work through Using QuickBASIC 4.5, you'll find it easier 
to learn and understand the discussions if you actually sit down at 
your computer and run the examples and demonstration pro- 
grams. At times we describe specific steps in a given computer 
operation, but it is not practical to describe the steps for every 
conceivable computer configuration. Therefore, we describe steps 
for a system with two disk drives (one 3 1/2 inch and one 5 1/4 inch). 
It is much easier to transfer such information from a small to a 
large system than vice versa. 

A consistent style of programming has been used in this book. 
Programs are easy to read and understand. The book avoids pro- 
gramming "tricks" and shortcuts that would detract from learning. 
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After explaining how to configure a QuickBASIC work disk, we 
describe fundamental tools of QuickBASIC. Their use is demon- 
strated with practical examples. You learn how to move around in 
QuickBASIC's menu system and how to use the menus for loading, 
saving, and running programs. 

After learning the basics, you are ready to move on to some of 
QuickBASIC's more powerful control structures. Editing tools are 
used to delete, insert, and copy characters, words, and blocks of 
text and to merge complete files. Some editing tools are immedi- 
ately available from the QuickBASIC editor; the more powerful 
ones are accessed from the Edit menu. 

The features of QuickBASIC procedures, subprograms 
(SUB...END SUB), and function definitions (FUNCTION... 
END FUNCTION) are discussed and fully demonstrated. They are 
powerful structures that will enhance your programs. The View 
menu, used to access procedures after they have been created, is 
explained and demonstrated in many examples. 

Data files, both sequential and random access, are discussed and 
used to show how many QuickBASIC features can be used in 
applications. Methods of scanning, copying, inserting, adding, and 
editing records within data files are described and many examples 
shown. 

The Debug menu is explained and used to show QuickBASIC 
tools for debugging programs. Single-stepping through programs 
is demonstrated, along with the use of watchpoints, instant watch, 
breakpoints, and program tracing and history. 

A chapter on creating and running executable files is included. 
Executable files have an .EXE extension and will run directly from 
your disk operating system (MS-DOS). 

The book concludes with a chapter that discusses the creation 
and use of Quick libraries, which can be included with any Quick- 
BASIC program. 

Microsoft QuickBASIC is an extremely powerful language that 
contains rich and elegant features. This book "walks" you through 
the fundamental features so that you will have the background 
necessary to further explore QuickBASIC in an intelligent way. 


xii 
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Programming skills are developed by studying programs and ex- 
perimenting with the elements of a language. You are encouraged 
to use this book as a beginning for such exploration and develop- 
ment. 


— Don Inman 
Bob Albrecht 
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You may order a disk containing programs, defined functions, and 
procedures discussed in Using QuickBASIC 4.5. This disk includes 
W All BASIC and QuickBASIC programs shown in this book 

ш Single-line and multi-line functions stored as separate files so 
you can easily merge them with your programs 

W SUB and FUNCTION procedures stored as separate files so you 
can easily merge them with your programs 

W A bonus! The disk includes several files not described in the 
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The disk is available in two sizes: 5 1/4-inch disk $6.00 
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Specify disk size and Using QuickBASIC 4.5 when ordering. 


Workbooks 


To further assist you in the enjoyable task of learning QuickBASIC, 
the authors are developing an ongoing series of workbooks for 
self-instruction in the use of graphics and sound. 

ш QuickBASIC Graphics and Sound, Book 1 is a beginner's intro- 
duction to QuickBASIC's extensive repertoire of graphics and 
sound features. 64 pages, $4.95. 

ш Datafile Programming in QuickBASIC, Book 1 supplements the 
material on data files in QuickBASIC Made Easy and in Using Quick- 
BASIC 4.5. 64 pages, $4.95. 

W QuickBASIC for Math and Science, Book 1 explores diverse ap- 
plications in mathematics and science. 64 pages, $4.95. 


Use the order form that follows. 
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A Review of 
BASIC 


BASIC (Beginner's All-purpose Symbolic Instruction Code) was 
available as a programming language for large computers long 
before the first microcomputer appeared. BASIC arose from a 
quest to make computing power available to all people, not just to 
those professional programmers who normally had access to large, 
expensive computers. Dartmouth professors John G. Kemeny and 
Thomas E. Kurtz developed the original BASIC language in 1963 
and 1964 as an instructional tool for training novice programmers. 
Their purpose was to design a language that would be easy to learn 
but still useful for any programming task. The success of BASIC 
and its widespread use are due to its simplicity, ease of use, and 
general-purpose power. 

In 1965, BASIC became available outside of Dartmouth, ini- 
tially by means of time-sharing systems. Its use later spread to the 
low-cost (at that time) dedicated minicomputers. When microcom- 
puters were introduced to the public as personal computers, the 
computer moved from the exclusive realm of the professional 
programmer into the domain of the creative amateur. The only 


Using QuickBASIC 


high-level language available for these early machines was BASIC. 
A short history of BASIC is shown in Figure 1-1. 


1956 


1956—57 


1957 


Early 1960s 


1963 


Figure 1-1. 


Darsimco (Dartmouth Simplified Code), a simplified version 
of assembly language programming, was designed but did 
not catch on. 


Kemeny and Kurtz became increasingly aware of the short- 
comings of batch-processing computer programs. 


FORTRAN appeared for experts. 


Kemeny and Kurtz began to seriously consider time-sharing 
for computer use by many users. 


The National Science Foundation approved funding for a 
project staffed by Kemeny, Kurtz, and a dozen undergradu- 
ates to develop a time-sharing system at Dartmouth College. 
This marked the beginning of personalized, interactive com- 
puting. 


Kemeny, Kurtz, and students worked with compilers, FOR- 
TRAN, ALGOL, and experimental languages, all of which 
influenced later development of BASIC. 


Dartmouth decided to enable all students to become com- 
puter literate. Kemeny and Kurtz, with help from students, 
began the development of a general-purpose, time-sharing 
computer system and a new language (BASIC) to introduce 
beginners to programming and serve all applications for 
large and small systems. 


The original features of BASIC were designed to 


• Be general-purpose in nature for writing any type of pro- 
gram 


e Allow for advanced features if needed later 
* Provide for user/computer interaction 

e Provide clear and friendly error messages 
* Give a fast response for small programs 

* Require no hardware knowledge 


* Shield the user from the computer's operating system 


Early BASIC history 


A Review of BASIC 


1964 


1964-1971 


Equipment on which the time-sharing system and BASIC 
were to be developed arrived in February 1964. The equip- 
ment was fully functional by March 1, 1964. 


On May 1, 1964, at 4 лм., John Kemeny and a student pro- 
grammer entered and ran separate BASIC programs on the 
new system with success. Time sharing and BASIC were born. 


The growth of BASIC in this period predated personal com- 
puters. 


BASIC at Dartmouth made the transition from a language 
suitable only for small programs to a language suitable for 
building large application programs. 


Kemeny and Kurtz had sole responsibility for Dartmouth's 
first BASIC; then others became involved. 


Two main genealogical lines grew out of the original Dart- 
mouth BASIC. Large-machine BASIC versions were proba- 
bly direct descendants of GE BASIC, which in turn descended 
from Dartmouth BASIC. Most small-machine BASIC versions 
descended from versions that first appeared on the Hewlett- 
Packard HP-2000 or the Digital Equipment Corporation 
PDP-8. GE BASIC and Dartmouth BASIC were almost the 
same until around 1970; Dartmouth had built its time- 
sharing systems around GE hardware. 


Expanded PRINT statements and the introduction of the 
INPUT statement (almost two years after BASIC first ap- 
peared) greatly enhanced the interaction between user and 
computer. 


The use of files for purposes other than saving programs was 
introduced. 


Provision for "calling" external subroutines added flexibility 
to large programs. 


By the end of 1971, Dartmouth BASIC had reached its sixth 
version and was a huge success. 


The material for this history was based on Back to BASIC, by J.G. Kemeny and 
T.E. Kurtz (Addison-Wesley, 1985), which is recommended reading. 


Figure 1-1. 


Early BASIC history (continued) 
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Because early microcomputers had limited memory, early ver- 
sions of BASIC were crunched adaptations of Dartmouth BASIC. 
Today, there is at least one version of BASIC available for each 
brand of microcomputer. Today's versions are more complete and 
powerful, but they are still easy to learn and use. BASIC is now built 
into, or bundled with, almost every computer that goes into busi- 
nesses, homes, and schools. 

BASIC provides immediate interaction with the user by means 
of commands that cause some action on the video display; there- 
fore, a beginner receives immediate positive reinforcement. After 
learning a few BASIC statements, a user can create programs in 
short, simple steps. The desire to solve interesting problems or 
create interesting video displays stimulates the desire —as well as 
the necessity — to learn more of BASIC's capabilities. This imme- 
diate and constant interaction between person and computer puts 
BASIC at the forefront of people-oriented computer languages. 

Many languages are now available for microcomputers— 
COBOL, FORTRAN, LOGO, Pascal, Modula-2, and C, to name a 
few. The list of candidates in the battle for computer language 
supremacy goes on and on. Each language has its own group of 
proponents who expound the virtues of their choice. 

BASIC is not a standardized language. Different versions have 
been created to fit unique hardware characteristics of individual 
computers. The programming styles of users also vary widely; 
people often write programs that work but are impossible for 
anyone other than the programmer to read. Even the programmer 
may have trouble reading the program later. 

Proponents of other computer languages attack BASIC with the 
claim that it does not lend itself to well-structured programs. With 
a little planning and effort on the part of the programmer, how- 
ever, BASIC programs can be structured into functional blocks of 
program lines. In addition, new BASIC interpreters and compil- 
ers, such as QuickBASIC, qualify as fully structured languages with 
multiline functions, procedures with both local and global vari- 
ables, and structures such as IF. . . THEN. . . ELSE. . .END IF and 
DO. . .LOOP. Some versions of BASIC, including QuickBASIC, 
now have all the "goodies" that proponents of other languages 
have bragged about in the past. 

BASIC has also been criticized because of its lack of speed. This 
was true in the past, since most versions of BASIC were written as 
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interpreters. The microprocessor of a computer cannot directly 
execute BASIC statements; it can execute only its own binary 
machine language instructions. Therefore, before BASIC state- 
ments can be executed, they must be translated into the machine 
language of the processor. 

There are two ways to provide this translation: by interpreter 
and by compiler. Nearly all versions of BASIC developed in the 
past and most current versions are interpreted. Each BASIC state- 
ment is translated (interpreted) as it is executed. This line-by-line 
interpretation takes place every time the BASIC program is run, 
slowing the execution of the program. 

The original version of BASIC and its further development at 
Dartmouth used a compiler to directly convert BASIC programs 
into machine language. A compiler translates (compiles) the BASIC 
statements before the program is run. The program is first com- 
piled to produce an executable machine language file. When this 
file is run, it runs very quickly, since it is in the machine's native 
language. The translation has already taken place, so no time is lost 
during the program's execution. Most commercial software oper- 
ates in this way. 

There are advantages and disadvantages to both methods of 
translation. Compiled programs often take more time to eliminate 
errors. Each time an error is discovered in the executable machine 
language file, the original BASIC program (called the source code) 
must be corrected. The program must then be recompiled before 
its executable file (called the object code) can be run again. If more 
errors are discovered, the original program must be corrected 
again and recompiled. Although the compiled code runs very 
swiftly, writing an error-free source program can be time- 
consuming. Interpreted BASIC, on the other hand, is translated 
line by line, and errors are quickly discovered and can be quickly 
corrected. The execution time is much slower than that of a com- 
piled program, however. 


QuickBASIC: The Best of Two Worlds 


QuickBASIC 4.5 is the latest version of QuickBASIC from Mi- 
crosoft Corporation. It runs programs much more quickly than 
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interpreted versions of BASIC but retains the interactive qualities 
that BASIC users have learned to love. Designed for IBM PC and 
PC-compatible computers, QuickBASIC 4.5 offers functions and 
speed previously unavailable from other versions of BASIC. It 
combines the interactive strength of interpreted BASIC with the 
structured, modular approach of languages such as Pascal. 

QuickBASIC employs the same powerful yet easy-to-use lan- 
guage environment that is characteristic of other versions of Mi- 
crosoft BASIC. It is compatible with IBM's Advanced BASIC 
(BASICA) and Microsofts GW-BASIC, which runs on PC- 
compatible computers. The QuickBASIC compiler is intended for 
anyone; users familiar with other versions of Microsoft BASIC will 
find the transition to QuickBASIC quite easy. 

Here are some major features of QuickBASIC: 


W It is compatible with Microsoft GW-BASIC and IBM BASICA. 


W It offers a built-in, full-screen editor, compiler, and debugger 
with pull-down menus and dialog boxes. Many errors are located 
by the editor as soon as a statement is entered. 


W It contains QB Advisor, a complete hypertext electronic refer- 
ence, for quick and easily accessible help. 


m It has a new easy-to-use user interface with Easy menus for 
beginners and Full menus for the advanced user. 


@ It has QB Express, an on-line tutorial, to get beginners started. 
There is also a step-by-step tutorial guiding a beginner through a 
complete functional application. 


W It accepts command selections from either a mouse or the key- 
board. 


W It supports structured programming with alphanumeric labels, 
structured logic statements, subprograms, and multiline functions, 
making programs easier to read and understand. 


W It supports graphics (including CGA, EGA, and VGA modes), 
BLOAD, BSAVE, sound, music, and event trapping. 


A Review of BASIC 7 


A Common BASIC 
Starting Point 


Since readers of this book have a wide range of computer experi- 
ence, a brief review of a common set of BASIC statements, func- 
tions, and commands is in order. This book assumes that you have 
been using one or more versions of BASIC. Whether you have been 
using an Atari, Commodore, IBM PC, Tandy 1000, Apple II, or 
some other computer is of little consequence: All versions of BASIC 
used with these computers are similar. 

This review is limited to GW-BASIC (or IBM BASICA, which is 
almost identical) and Applesoft BASIC, for several reasons. Mi- 
crosoft's GW-BASIC was chosen because it is one of the latest and 
most powerful versions of BASIC, it is widely used, and it is avail- 
able for many brands of computers. Applesoft BASIC (which is 
licensed from Microsoft) was chosen because it is the language of an 
entire series of Apple II computers, which are widely used in 
schools. Applesoft is an older BASIC that is built into the Apple II, 
П +, Пс, Пе, and even the new IIGS. To simplify the discussions, 
these versions of BASIC will be referred to as GW-BASIC and 
Applesoft. 

These new and older versions of BASIC provide a good contrast 
because of their differences and similarities. The contrast also il- 
lustrates the growth of BASIC from Applesoft's old and primitive 
version to the newer and more powerful GW-BASIC. The series of 
short sample programs presented here will emphasize the similar- 
ities and differences of GW-BASIC and Applesoft. 

The Applesoft programs included in this chapter will help Ap- 
plesoft users make the transition from Applesoft to GW-BASIC and 
QuickBASIC 4.5. By comparing the two versions of each program, 
you will see how you can quickly and easily edit your Applesoft 
programs so that they can be compiled and executed in Quick- 
BASIC. The Applesoft and GW-BASIC versions have been made as 
similar as possible so that you can more easily see their differences 
and similarities. Of course, as you wend your way through this 
book, you will learn to use powerful QuickBASIC features that are 
not available in either Applesoft or GW-BASIC. 
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Many of you may want just to browse through the sample 
programs in this review, studying only those of interest. If you are 
a beginner, you should study each program and try it on your 
computer. REMARK (REM) statements are not executed when you 
run a program; they are used to help you read and understand the 
program. Therefore, you may omit REM statements when testing 
these demonstration programs. This will save you a considerable 
amount of typing. 

If you are an advanced BASIC user, you can skip through this 
chapter and move on to more advanced material. 


Personai Applications 


BASIC is primarily a language for personal rather than commer- 
cial use. Therefore, the first programs here are applications that 
are used by many people. They are written in a style that is easy to 
read and understand. Steps that perform a distinct function are 
written as separate blocks, each with an explanatory REMARK 
statement. 


Checking Up on Your 
Utiiity Company 


Almost everyone has to deal with a monthly bill from a utility 
company. We usually pay the specified amount with little regard to 
its validity. Figure 1-2 shows a simplified utility bill containing 
information that can be used to check the bill's validity. (You can 
also check the meter readings if you know what day of the month 
the meter person reads your meter.) 

The UTIL BILL program is shown in two versions, one in 
GW-BASIC and the other in Applesoft. Program 1-1, UTIL BILL, 
is written in GW-BASIC. It is compatible with QuickBASIC, so you 
can use QuickBASIC to compile and run it. 
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> REMEMBER BASICA programs are also compatible with Quick- 
BASIC. 


Program 1-2, UTIL BILL, is written in Applesoft. Applesoft is not 
compatible with QuickBASIC, so you cannot use QuickBASIC to 
compile and execute the Applesoft program. 

Programs 1-1 and 1-2 demonstrate the style and many of the 
conventions used throughout this book. The programs are struc- 
tured in functional blocks, or modules. Each functional block begins 
with a REMARK statement to identify the function performed. No 
GOTO, GOSUB, or other statement is made to a line that begins 
with a REM statement in these programs or any other program in 
the book. Therefore, you may omit lines that begin with "REM" 
when entering the program; the program will run whether these 
lines are there or not. 

The REM statements that identify the functional blocks in a 
program can be used as an outline of the program. For example, 


WEER VURE UTILITY COMPANY 


Type of Period Meter Reading Gas - Therrs 
Service From To Fron To Elec - КИН 


293 
ENERGY COMMISSION TAX 


PREVIOUS BALANCE 
PT 5/15/99 


TOTAL AMOUNT NOW DUE 


RATES: GAS 58,55 PER HEMM ELECT 90.9705 PER КЫН 


Figure 1-2. Utility bill 
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here is an outline in REM statements of programs 1-1 and I-2: 


] REM ** UTIL BILL ** Block 1 

100 REM ** ASSIGN CONSTANTS ** Block 100 
200 REM ** ENTER AMOUNTS ** Block 200 
300 REM ** CALCULATE BILL ** Block 300 


400 REM ** ROUND OFF & PRINT RESULTS ** Block 400 


1 REM ** UTIL BILL ** 

2 ' USING QuickBASIC, Chapter 1 
3 ' GW-BASIC File: UQBO101.BAS 
4 ' A cold, rainy day 

5 ' Utility bill rises 


9 ', 

100 REM ** ASSIGN CONSTANTS ** 

110 KWP » .0705 ' ELECTRICITY PRICE PER KWH 
120 THP = .505 ' GAS PRICE PER THERM 

130 TXR = .00125 ' ENERGY TAX RATE 

140 ST$ = "вий, ви“ ' STRING OUTPUT FORMAT 

199 ' 


200 REM ** ENTER AMOUNTS ** 
210 CLS: KEY OFF 

220 INPUT "TOTAL KWH"; KWH 
230 INPUT “TOTAL THERMS"; THM 

299 ' 

300 REM ** CALCULATE BILL ** 

310 ELECT = KWH * KWP 

320 GAS = THM * THP 

399 ' 

400 REM ** ROUND OFF & PRINT RESULTS ** 

410 ELECTOT = INT(ELECT * 100 + .5) / 100 

420 GASTOT = INT(GAS * 100 + .5) / 100 

430 PRINT: PRINT "TOTAL ELECTRIC = ";: PRINT USING ST$; ELECTOT 
440 PRINT “TOTAL GAS = "i: PRINT USING ST$; GASTOT 

450 SUBTOTAL = ELECTOT + GASTOT 

460 TAX = INT(TXR * SUBTOTAL * 100 + .5) / 100 


470 PRINT "ENERGY TAX = "i: PRINT USING ST$; TAX 

480 TOTAL = SUBTOTAL + TAX 

490 PRINT: PRINT "TOTAL BILL = ";:; PRINT USING ST$; TOTAL 
500 END 


Program 1-1. UTIL BILL — GW-BASIC 
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Notice that the opening block (Block 1) consists only of REMARK 
statements used to identify this particular program: program 
name, book title, chapter number, language used, and filename. 
From time to time, other information may be included in this block 
of program lines, for example, the date, comments about the pro- 
gram, advice on program usage, or any other information. When 
you are writing programs, use REM statements in any way you 
want, but be sure to use them. In this way, your program becomes 
self-explanatory, which is especially important for long, compli- 
cated programs. Other people will be able to read and understand 


1 REM ** UTIL BILL ** 

2 ' USING QuickBASIC, Chapter 1 
3 ' Applesoft File: UQBO102.BAS 
9: 


100 REM ** ASSIGN CONSTANTS ** 
110 KWP = .0705 ELECTRICITY PRICE PER KWH 


* 


120 ТНР = .505 : GAS PRICE PER THERM 
130 TXR = .00125 : ENERGY TAX RATE 

199 : 

200 REM ** ENTER AMOUNTS ** 

210 HOME 


220 INPUT "TOTAL KWH ? *; KWH 
230 INPUT "TOTAL THERMS ? "; THM 


300 REM ** CALCULATE BILL ** 
310 ELECT = KWH * KWP 
320 GAS = THM * THP 


400 REM ** ROUND OFF & PRINT RESULTS ** 

410 TELEC = INT(ELECT * 100 + .5) / 100 

420 TGAS = INT(GAS * 100 + .5) / 100 

430 PRINT : PRINT "TOTAL ELECTRIC - $ *; TELEC 
440 PRINT "TOTAL GAS = ? "; TGAS 

450 SUBTTL = TELEC + TGAS 

460 TAX = INT(TXR * SUBTTL * 100 + .5) / 100 


470 PRINT "ENERGY TAX = $ 0"; TAX 

480 TT = SUBTTL + TAX 

490 PRINT: PRINT *TOTAL BILL = $ *; TT 
500 END 


Program 1-2. UTIL BILL - Applesoft 
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your programs, and you will be able to read and understand your 
programs in the future. 

GW-BASIC allows you to use the apostrophe (') as well as 
"REM" to denote a REMARK statement. You can also use the 
apostrophe alone on a program line to separate blocks of the 
program, as in lines 9, 199, 299, and 399 of the GW-BASIC version 
of UTIL BILL. Applesoft uses a colon for the same purpose. You 
can also add comments to the end of GW-BASIC program lines, as 
in lines 110, 120, 130, and 140 of Program 1-1. In Applesoft you 
can use a colon, as in lines 110, 120, and 130 of Program 1-2. 

The second block (Block 100) assigns price-per-unit values to 
electricity and gas and the energy tax rate. An additional variable, 
ST$, is used in the GW-BASIC version to stipulate the format for 
printing money values. Applesoft does not have this feature; you 
must provide spacing in each individual PRINT statement. 

The third block (Block 200) allows you to enter the number of 
electricity and gas units used over a given time. The screen is 
cleared with different statements in the two programs: GW-BASIC 
and QuickBASIC use CLS while Applesoft uses HOME to clear the 
screen and move the cursor to the upper left corner. 

You can also see slight differences in the INPUT statements 
used to enter the unit amounts. GW-BASIC INPUT statements 
give you the option of printing a question mark following the input 
prompt; the question mark must be provided in an Applesoft input 
prompt. 

The fourth block (Block 300) calculates the cost of electricity 
and the cost of gas for the billing period. This block is the same in 
both versions. 

The fifth block (Block 400) rounds off the results of Block 300, 
prints the rounded values, calculates the energy tax, prints it, adds 
the results, and prints the total charges. Some of the variables in 
this block are different in the two programs. One of the most 
notable differences between GW-BASIC and Applesoft is the use of 
variable names. GW-BASIC and QuickBASIC accept variable 
names of up to 40 characters, but Applesoft accepts variable names 
of no more than 8 characters. Moreover, Applesoft recognizes only 
the 2 leftmost characters of a variable name— you must use great 
care when using Applesoft variable names that are longer than 2 
letters. 
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Both versions use the variable ELECT to represent the cost of 
electricity. The GW-BASIC version uses the variable ELECTOT for 
the rounded value of ELECT in line 410. Since Applesoft recog- 
nizes only the first two letters (EL), Applesoft considers them to be 
the same variable. 

There is another — and more important — reason that ELECTOT 
cannot be used as an Applesoft variable. The indentations and 
spacing used in the GW-BASIC version are preserved when the 
program is listed. Applesoft removes the indentations and uses its 
own spacing conventions when listing a program. In fact, the 
spacing used by Applesoft may result in the unexpected use of 
reserved words. For example, suppose that you entered line 410 in 
the Applesoft version of the program as 


410 ELECTOT = INT(ELECT * 100 + .5) / 100 


The variables in this line seem to contain no reserved words. 
However, when the line is listed, it will be printed as 


ELEC TO T = INT(ELECT * 100 + .5) / 100 


Applesoft finds the reserved word TO, separates it by spaces, and 
makes nonsense of the line. The correct Applesoft version of UTIL 
BILL uses the name TELEC instead of ELECTOT for the variable. 
Other variable names that needed to be changed in the Applesoft 
program are GASTOT (changed to TGAS), SUBTOTAL (changed to 
SUBTTL), and TOTAL (changed to TT). 

A screen print of a run made for the utility bill from Figure 1-2 
is shown in Figure 1-3. Program 1-1 and Program 1-2 produce the 
same result. If you save the GW-BASIC version in ASCII format, 
you can load, compile, and run it in QuickBASIC without modi- 
fication. The Applesoft version cannot be compiled or run by 
QuickBASIC, but it is shown as an aid to those of you with Apple- 
soft experience. If you have moved to an IBM PC or a PC- 
compatible computer, the Applesoft version will help you learn to 
convert Applesoft to GW-BASIC or BASICA, which are accepted by 
the QuickBASIC compiler. 
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Figure 1-3. Output of Program 1-1 


Checking Up on Your 
Stocks 


Those of you who follow the stock market may find the next 
demonstration program helpful. You can use it to calculate the 
value of the stocks you own. The short program consists of only 
three blocks: program identifier, data entry, and calculation. Here 
is an outline in REM statements: 


] REM ** VALUE OF STOCKS ** 
100 REM ** ENTER DATA & CALCULATE WORTH *« 


200 REM ** ROUND OFF & PRINT WORTH ** 


Program 1-3 is the GW-BASIC version and Program I-4 is the 
Applesoft version of VALUE OF STOCKS. In each version, the 
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ENTER DATA & CALCULATE WORTH section asks for the num- 
ber of shares and the price per share for each stock. As you enter 
the data, it calculates a running total of the value of the stocks. 

When you have entered these values for all of your stocks, enter 
a 0 at the prompt for number of shares. Then enter 0 or any other 
number for the price per share. The program will then move to the 
ROUND OFF & PRINT WORTH block, where the value of your 
portfolio is rounded to the nearest cent and printed. 

Both versions of the program produce the same results. The 
variable WORTH in the GW-BASIC version was changed to TWR 
(Total WoRth) in the Applesoft version. Because the Applesoft 
reserved word OR appears within the variable WORTH, Applesoft 
would interpret WORTH as "W OR TH." Therefore, you cannot 
use WORTH as an Applesoft variable. Once again, Applesoft uses 
HOME instead of the GW-BASIC CLS to clear the screen. 

The GW-BASIC version (Program 1-3) uses a WHILE. . . 
WEND loop to accept the data and calculate the value of your 
stocks. Applesoft does not have a WHILE. ..WEND structure. The 
Applesoft version must rely on a GOTO statement in line 160 to go 
back for more data and an IF. . .THEN statement in line 150 to 


1 REM ** VALUE OF STOCKS ** 

2 ' USING QuickBASIC, Chapter l 

3 ' GW-BASIC File: UQBO103.BAS 

9 + 

100 REM ** ENTER DATA & CALCULATE WORTH ** 
110 CLS: WORTH# = 0: SHARES = .0001 

120 STS = “99ини, ини, иин, "a" 

130 WHILE SHARES <> 0 

140 INPUT “NUMBER OF SHARES "; SHARES 
150 INPUT “PRICE PER SHARE ^"; PPS 
160 WORTH» = WORTH» + SHARES * PPS 


170 PRINT 
180 WEND 
199 ' 


200 REM ** ROUND OFF & PRINT WORTH ** 

210 WORTH" = INT(WORTH® + 100 + .5) / 100 

220 PRINT “TOTAL VALUE OF STOCKS = ";: PRINT USING ST$; WORTH® 
230 END 


Program 1-3. VALUE OF STOCKS — GW-BASIC 
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leave the data entry block. The variable WORTH# in the GW- 
BASIC version uses the number sign (#) to declare it as a double- 
precision variable in case you have a large-valued stock portfolio. 
Once again, differences in the PRINT and INPUT statements 
provide appropriate spacing. A typical run for these programs is 
shown in Figure 1-4. 


Conventions and Styie 


Learning to program offers you an opportunity to increase your 
problem-solving abilities—not just mathematical problem solving, 
but any problem-solving task. The computer is a valuable tool for 
learning to think logically. The problem-solving process becomes 


1. Define the problem. 
2. Break the problem down into a series of smaller subproblems. 


3. Write a computer program in small, functional blocks to fit the 
subproblems. 


1 REM ** VALUE OF STOCKS ** 

2 ' USING QuickBASIC, Chapter 1 
3 ' Applesoft File: UQBO104.BAS 
9 . 


100 REM ** ENTER DATA ** 

110 HOME: TWR = 0 

120 INPUT "NUMBER OF SHARES ? *; SHARES 
130 INPUT "PRICE PER SHARE ? "; PPS 
140 TWR = TWR + SHARES * PPS 

150 IF SHARES » O0 THEN 210 

160 PRINT : GOTO 120 

199 : 

200 REM ** CALCULATE жж 

210 TWR = INT(TWR * 100 + .5) / 100 

220 PRINT "TOTAL VALUE OF STOCKS = $ "; TWR 
230 END 


Program 1-4. VALUE OF STOCKS — Applesoft 


A Review of BASIC 17 


The solution is reached more logically, more quickly, and more 
reliably when this process is followed. During the process, one 
becomes acutely aware of the capabilities and limitations of the 
computer. The human element is more important in problem 
solving than the tools that are used. 

The computer is a machine that is used by people; therefore, 
people should write programs that are easy for other people to 
read and understand. This section discusses certain conventions 
that are used in this book to promote good programming style and 
structure. These conventions will lead you gently into the style of 
programming that is supported by QuickBASIC 4.5. (Structure 
and good style are practices that you should use for all programs 
in any BASIC.) The conventions used in this book will provide 
standardization and a learning environment that will make a 
smooth and easy transition from the version of BASIC with which 
you are familiar to Microsoft's QuickBASIC 4.5. 


BER OF SHARES 7 58 
PRICE PER SHARE ? 62,125 


NUMBER OF SHARES ? 23 
PRICE PER SHARE 7 18.5 


BER OF SHARES 7 44 


PRICE PER SHARE ? 8 
TOTAL VALUE OF STOCKS = $4,051.75 


Figure 1-4. Output of Programs 1-3 and 1-4 
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Programming 
Conventions and Style 


А computer accepts information, processes the information accord- 
ing to specific instructions, and provides results of the process as 
new information. The primary reason for learning to program is to 
be able to use your computer as efficiently as possible. Commercial 
programs are available for many purposes, but they are seldom 
written for an individual's specific needs. They are written to be 
used by as many different people as possible to increase sales. By 
learning to write your own programs, you can make the computer 
do what you want it to do in the way that you want it done. 

While programming, you quickly learn to define a problem and 
break it down into smaller, more manageable parts. You can then 
write a series of instructions that solve the parts. Each of these 
blocks of instructions solves a particular part of your original prob- 
lem. You finalize the solution by linking the blocks together into a 
complete program. 

It is important that your instructions to the computer (your 
program) are written so that they can be understood by your 
computer. The instructions should also be easy for you or anyone 
else to read, understand, and use. 

It is tempting to write programs for yourself with little thought 
to their logic or structure. You may think that you will use the 
program only once and that no one else will ever use it. However, 
you never know when you may end up with a real gem that you 
may want to use again or share with friends. You may even submit 
it to a user group or to a magazine for publication. Good program- 
ming style is a good habit that leads to good programs. 

This book provides carefully designed examples that use a 
consistent set of programming conventions and structured style. 
QuickBASIC provides a wide range of programming structures 
and also provides aids to consistent style while its Syntax Checking 
feature is turned on. Several elements of style and some of the 
programming conventions are demonstrated at the end of this 
chapter. Additional elements of style are explained as needed in 
later chapters. 
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REM Statements Each program in this book begins with a series 
of REMARK statements. The first REM statement gives the name 
of the program. GW-BASIC and QuickBASIC also accept the apos- 
trophe (') as a way to indicate REM statements. This shortened 
form is handy when more than one REM is provided at the be- 
ginning of a program block. For example, the second REM of the 
opening program block identifies the book title and chapter, and 
the third gives the language used and the name of the file under 
which the program was saved. Other descriptive information may 
also be given in other REMs of the first block of the program. Put 
any information you want in your REMs. 


> REMEMBER These statements are not executed, but they supply 
descriptive information to aid in the program's use. 


REM statements are not included in QuickBASIC's compiled pro- 
gram, but they are retained in the source code that you see on the 
screen. Here is an example: 


200 REM ** MAIN LOOP ** 

210 WHILE 1 

299 

300 КЕМ ** INITIALIZE WWl & WW2 & INPUT WORD ** 


Each functional block begins with at least one REM statement to 
indicate clearly the function of that part of the program. Asterisks 
are used in these block-opening REM statements to make it easier 
to browse through a program and find the REM statements that 
describe the functions of the blocks. 

The apostrophe is also used to provide comments at the end of 
some executable statements in the GW-BASIC and QuickBASIC 
programs, as shown here: 


DEFDBL W 'double precision variables begin with W 


Applesoft does not recognize the apostrophe as an alternative to 
“REM”; a colon is used to add comments after an executable 
statement in Applesoft programs. 
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BASIC Keywords In Applesoft, BASIC keywords (PRINT, IN- 
PUT, and so on) must be typed in uppercase. In GW-BASIC and 
BASICA, keywords may be typed in uppercase or lowercase; how- 
ever, when a GW-BASIC or BASICA program is listed, keywords 
appear in uppercase regardless of how they were entered. 

Keywords may also be entered in lowercase or uppercase in 
QuickBASIC. The QuickBASIC editor automatically changes low- 
ercase keywords to uppercase when the line containing the lower- 
case keyword is entered or when the cursor is moved off that line. 
This book will consistently use uppercase for keywords. 


Variables GW-BASIC, BASICA, and QuickBASIC allow and rec- 
ognize long, unique variables (up to 40 characters). Applesoft al- 
lows only eight characters for variables and recognizes only the first 
two characters. If you are an Applesoft user, you must keep in mind 
that the first two characters of each Applesoft variable must be 
different if the variables are to be recognized as distinct from one 
another. 

In Applesoft, variables must be typed in uppercase. GW-BASIC 
or BASICA variables may be typed in either uppercase or lower- 
case; however, when listed, they appear in uppercase. QuickBASIC 
variables may be typed in uppercase or lowercase and will appear 
exactly as typed when the program is listed. 

The Applesoft and GW-BASIC programs in this book use only 
uppercase letters as variables. Although this is not required in 
GW-BASIC, programs that are listed show variables in uppercase 
only, regardless of how they were originally typed. QuickBASIC 
variables will be shown in lowercase or in a mixture of lowercase 
and uppercase, as in the following listing. This convention makes 
programs easier to read. 


FOR number = ] TO LEN(Word$) 
Letter$ = MID$(Word$, number, 1) 
If Letter$ >= “A” AND Letter$ <= "Z" THEN 
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Line Numbering Line numbers are required in Applesoft and 
GW-BASIC. Lines in the opening blocks of Applesoft and GW- 
BASIC programs are always assigned numbers less than 100. 
Other blocks always begin with a number that is a multiple of 100. 
Any subroutine used begins with a line number that is a multiple 
of 1000. 

In QuickBASIC, line numbers are not required. Line numbers 
are not used in the QuickBASIC programs of this book. 


Punctuation Conventions А comma, semicolon, or colon is nor- 
mally followed by a space. Exceptions to this convention are when 
punctuation is used within a string and, in non-QuickBASIC pro- 
grams, when a colon immediately follows a semicolon. These con- 
ventions are illustrated in the following listing: 


210 CLS: WORTH® = 0: SHARES = .0001 
430 PRINT: PRINT "TOTAL ELECTRIC = * *; TELEC 
140 STS = "95иии, иви, паи, нн” 


220 PRINT "TOTAL VALUE = ^;: PRINT USING ST$; WORTH» 


The QuickBASIC editor provides some automatic spacing to en- 
sure consistent program appearance. For example, QuickBASIC 
will alter some of the statements shown in the preceding listing so 
that it appears as 


210 CLS : WORTH* = 0: SHARES = .0001 


430 PRINT : PRINT “TOTAL ELECTRIC = ? "; TELEC 
220 PRINT “TOTAL VALUE = *; : PRINT USING ST$; WORTH« 


Operation and Relational Symbols Liberal spacing in programs 
make them much easier to read. This book places one space before 
and after an operation symbol (+ — * /) or a relational symbol (= 
< > <= >= <>), as shown in the following examples. 
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130 WHILE SHARES «» O 
160 МОВТНе = WORTH® + SHARES * PPS 


210 WORTH® = INT(WORTH® ж 100 + .5) / 100 


There is one exception: When the dash (-) is used to denote a 
negative number, it is not followed by a space. 


240 FOR HERE » BOTTOM TO TOP STEP -1 


Indenting Loops А FOR. . .NEXT loop begins with a FOR state- 
ment and ends with a NEXT statement. The lines between these 
two statements are called the body of the loop. The FOR format 
places one space between each item in the statement. In this book, 
each NEXT statement is always followed by the variable name used 
in the FOR statement. The placement of this variable in the NEXT 
statement is optional in GW-BASIC and QuickBASIC. It is used in 
this book to clearly define the end of the loop. Indentations are 
used to delineate the body of each loop. Here is a typical FOR. . . 
NEXT loop: 


410 FOR NUM = 1 TO LEN(WORDS) 

420 LETTERS = MID$(WORDS, NUM, 1) 

430 ХЕ LETTERS < "A" AND LETTERS > “2” THEN 470 
440 . LSCORE = ASC(LETTERS) - 64 

450 WW1 = WWl + LSCORE 

460  WW2 = WW2 х LSCORE 

470 NEXT NUM 


GW-BASIC and QuickBASIC also provide a WHILE. . .WEND 
loop. The WHILE statement opens the loop; the WEND statement 
closes the loop. A condition is included in the WHILE statement. 
The body of the loop is executed continuously while this condition 
is true. When it becomes false, the program exits to the statement 
following WEND. Here are the opening and closing statements of 
a typical WHILE. . .WEND loop: 


130 WHILE SHARES <> 0 
140 INPUT "NUMBER OF SHARES °; SHARES 
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150 INPUT “PRICE PER SHARE ^"; PPS 
160  WORTH* = WORTH* + SHARES * PPS 
170 PRINT 

180 WEND 


The condition in the WHILE statement (WHILE SHARES <> 0) 
is originally true due to the statement preceding the loop. As long 
as you enter a nonzero value for SHARES, the condition is satisfied 
and the loop will repeat. To leave the loop, enter 0 for the number 
of shares and any number for the price per share. The condition 
in the WHILE statement is then false, and the program exits from 
the loop. 


Multiple Statements Multiple statements are used only when the 
statements form a compound function; that is, the statements to- 
gether perform some action, such as when the screen is originally 
cleared and the key line turned off: 


120 CLS: KEY OFF 


One space normally follows the colon separator in GW-BASIC 
programs. QuickBASIC sometimes provides automatic reformat- 
ting that places a space before and after a colon. 


Demonstrating 
Conventions 


Program 1-5, WORDSWORTH, demonstrates the style and some 
ofthe conventions used in GW-BASIC programs in this book. REM 
statements are used to describe the program and separate it into 
functional blocks. The main part of the program consists of a long 
WHILE. . МЕМО loop that is executed continuously. A FOR... 
NEXT loop is nested within the WHILE. . .WEND loop. Notice 
how the loop bodies are clearly defined by the indentations. A 
subroutine that changes the word that you enter into uppercase is 
called from the main part of the program. The value of the word 
you enter is calculated when a return is made from the subroutine. 
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1 REM ** WORDSWORTH ** 

2 ' USING QuickBASIC, Chapter 1 

3 ' Microsoft GW-BASIC File: UQBO105.BAS 

9 + 

100 REM яж INITIALIZE ** 

110 DEFDBL W ' double precision variables begin with W 
120 CLS: KEY OFF 

199 ' 

200 REM ** MAIN LOOP ** 

210 WHILE 1 

299 i 

300 REM ** INITIALIZE WWl & WW2 & INPUT WORD ** 
310 МЫ! = 0: Ww2 = 1 

320 INPUT “Your word’; WORDS 

330 IF WORD$ = ** THEN END 

340 GOSUB 1010 

399 , 

400 REM ** CALCULATE ИМ! & WW2 ** 

410 FOR NUM = 1 TO LEN(WORDS) 


420 LETTERS = MID$(WORDS, NUM, 1) 
430 IF LETTERS < “A” AND LETTERS > "2° THEN 470 
440 LSCORE = ASC(LETTERS) - 64 


450 WWl = WWl + LSCORE 

460 WW2 = WW2 * LSCORE 

470 NEXT NUM 

499 1 

500 REM ** PRINT RESULTS, GO FOR MORE ** 
510 PRINT “WORDSWORTH 91 IS *; W1 

520 PRINT “WORDSWORTH #2 IS *; WW2 


530 PRINT 
540 WEND 
599 ' 


1000 REM ** SUBROUTINE: UPCASE ** 

1010 ' CHANGE WORD TO UPPERCASE 

1020 FOR CPOS = 1 TO LEN(WORDS) 

1030 CODE = ASC(MID$(WORDS, CPOS, 1)) 

1040 ТЕ CD >96 AND CD < 123 THEN MIDS(WORD$, CPOS) = CHRS(CD - 32) 
1050 NEXT CPOS 

1060 RETURN 


Program 1-5. WORDSWORTH — GW-BASIC 


Nonalphabetic characters are not counted in the word value. 
The program lines that calculate the running totals for the word 
values are skipped when the IF clause of the following IF. .. THEN 
statement is executed: 
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430 IF LETTERS < "A" AND LETTERS > *Z* THEN 470 
440 LSCORE = ASC(LETTER$) - 64 

450 WWl = WWl + LSCORE 

460 WW2 = WW2 * LSCORE 

470 NEXT NUM 


To obtain the value of a given letter, 64 is subtracted from the 
ASCII code of the letter: 


440 LSCORE = ASC(LETTER$) - 64 


Some typical LSCORE calculations are 


Letter B (ASCII value, 66): LSCORE = 66 - 64 = 2 
Letter A (ASCII value, 65): LSCORE = 65 - 64 = 1 
Letter S (ASCII value, 83): LSCORE = 83 - 64 = 19 
Letter I (ASCII value, 73): LSCORE = 73 - 64 = 9 
Letter C (ASCII value, 67): LSCORE = 67 - 64 = 3 


The program uses two different methods to determine the value of 
the word you enter. The value of WORDSWORTH #1 is calculated 
by adding the LSCORE of individual letters. The value of WORDS- 
WORTH #2 is calculated by multiplying the LSCORE of individual 
letters. From the previous example: 


For the word BASIC 
WORDSWORTH #1 
WORDSWORTH #2 


2+14+19+9+3 = 34 
2*1*19*9*3 = 1026 


The program allows you to enter the words in uppercase (A, B, C, 
and so on), in lowercase (а, b, с, and so on), or in a mixture of 
uppercase and lowercase. You can include blanks, hyphens, apos- 
trophes, and other nonalphabetic characters, but the program will 
ignore them when calculating the word values. 

If you use a comma in a word, you must enclose the word in 
quotation marks: When GW-BASIC sees a comma, it normally 
treats it as a separation symbol between multiple entries; commas 
used within quotation marks are not treated as separators. The 
UPCASE subroutine replaces all lowercase letters with uppercase 
letters but leaves all other characters unchanged. 
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Program 1-5 uses conventions and programming techniques 
that are very similar to those used in earlier programs. However, 
you might be unfamiliar with the use of MID$ as a statement in line 
1040, shown here: 


IF CD>96 AND CD«123 THEN MID$(WORDS, CPOS)=CHRS$(CD -32) 


If the value of CD is in the range 97 to 122, the MID$ statement 
following THEN is executed, causing the computer to replace the 
lowercase letter at character position CPOS in WORD$ with the 
corresponding uppercase letter, CHR$(CD ~ 32). 

Enter and run Program 1-5. Figure 1-5 shows the results ob- 
tained in a test run of the program. 

You might want to try revising the program to have it change 
all uppercase letters to lowercase. You would need to write a 
LOCASE subroutine to replace UPCASE. You would also need to 
change the lines where the letters are tested and the letter scores 
calculated. 


Figure 1-5. Output of Program 1-5 
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QuickBASIC generally accepts GW-BASIC programs that have 
been saved in ASCII format (with the ,A option). When the ,A 
option is not used in saving a GW-BASIC program, the save is 
made using a special compressed format that QuickBASIC cannot 
read. If you want to use a GW-BASIC program that was saved in 
the compressed format, reload itin GW-BASIC and resave it using 
the ,A option, as shown here: 


LOAD'WRDSWRTH^ 
Ok 
SAVE"WRDSWRTH" ,A 


You may have used some GW-BASIC statements and functions in 
your previous programs that cannot be used in QuickBASIC. Some 
statements and functions in QuickBASIC also require additional 
information that is unnecessary in GW-BASIC. Table 1-1 contains 
a list of GW-BASIC statements and functions that cannot be used 
in QuickBASIC. Examine this list carefully. These items perform 
editing operations on the source file, interfere with program exe- 
cution, or require cassette support. Their functions are performed 
in some other way or are unnecessary in QuickBASIC. 

Table 1-2 contains statements and functions that must be mod- 
ified to run in QuickBASIC. Consult your QuickBASIC manual for 
detailed information on how to modify these statements and func- 
tions. 

Program 1-6, WORDSWORTH WITH GRAPHICS, gives you a 
preview of QuickBASIC programming. It is a revision of Program 
1-5. Notice that there are no line numbers in this program. You can 
insert lines between other QuickBASIC lines as necessary using the 
built-in editor. 

You will notice differences in the appearance of the two pro- 
grams. The QuickBASIC version uses lowercase letters for some 
variables. Some variables are in mixed uppercase and lowercase. 

QuickBASIC has a built-in function (UCASE$) that changes a 
string expression to all uppercase letters. Therefore, the GOSUB 
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Statement Description 

AUTO Automatically generates a line number when you press ENTER. 
QuickBASIC does not need line numbers. 

CONT Resumes execution of an interrupted program. This com- 
mand is on the QuickBASIC Run menu. 

DEF USR Defines the user number and segment offset of a subroutine 
to be called by a USR function. User functions are created 
and used differently in QuickBASIC. 

DELETE Deletes specified lines or range of lines in a program. This 
function is performed in a different way in QuickBASIC. 

EDIT Enters the GW-BASIC edit mode. QuickBASIC's editor is 
automatically in force when you access the View window. 
Advanced editing features are available from the Edit menu. 

LIST Lists a program in memory to the display. QuickBASIC 
displays the current program in the View window. Other 
programs are displayed from a command in the File menu. 

LLIST Lists a program in memory to the printer. QuickBASIC uses 
the Print command selected from the File menu to perform 
this function. 

LOAD Loads a GW-BASIC program from disk to memory. Quick- 
BASIC uses an OPEN command selected from the File 
menu. 

MERGE Loads a GW-BASIC program and merges it with the pro- 
gram currently in memory. QuickBASIC uses a Merge com- 
mand from the File menu. 

MOTOR Turns the cassette motor on or off. QuickBASIC does not 
support cassette commands. 

NEW Deletes the GW-BASIC program currently in memory. 
QuickBASIC performs this function through its File menu. 

RENUM Renumbers the lines of the GW-BASIC program currently 
in memory. Line numbers are unnecessary in QuickBASIC. 

SAVE Saves a program to disk. This is performed by the Save and 
Save As commands in the QuickBASIC File menu. 

USR Calls a user assembly language subroutine. The CALL state- 
ment is used in QuickBASIC. 

Table 1-1. Prohibited Statements and Functions 
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Statement 
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Modification 


BLOAD/BSAVE 


CALL name 


CHAIN 


COMMON 


DIM 


DRAW 


PLAY 


RESUME 


RUN 


Memory locations used by Quick- 
BASIC may be different. 


As used in QuickBASIC, the name ar- 
gument is the name of the SUB pro- 
cedure subprogram being called. 


The ALL, MERGE, DELETE, and 
line number options of GW-BASIC's 
CHAIN statement are not supported 
by QuickBASIC. 


COMMON statements must be 
placed before any executable Quick- 
BASIC statement. 


All DIM statements declaring static 
arrays must be placed at the begin- 
ning of a QuickBASIC program. 


QuickBASIC requires that the VAR- 
PTR$ function be used with embed- 
ded variables. 


QuickBASIC requires that the VAR- 
PTR$ function be used with embed- 
ded variables. 


If an error occurs in a single-line 
function, QuickBASIC attempts to 
resume the program execution at the 
line containing the function. 


The object of a RUN or CHAIN state- 
ment must be an .EXE file for exe- 
cutable files produced by Quick- 
BASIC. While in the QuickBASIC en- 
vironment, the object of a RUN or 
CHAIN statement is still a .BAS file. 


The R option of GW-BASIC is not 
supported. However, QuickBASIC 
does support RUN ({linenumber/ 
linelabel), which restarts the program 
at the specified line number or line 
label. 


Table 1-2. Statements Requiring Modification 
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statement and the entire UPCASE subroutine of the GW-BASIC 
program is replaced by the one statement shown here: 


Word$ = UCASES(Word$) 


REM ** WORDSWORTH WITH GRAPHICS ** 
' USING QuickBASIC, Chapter 1 
' Microsoft QuickBASIC 4.5 File: UQB0106.BAS 


REM ** INITIALIZE ** 
DEFDBL W: DEFINT A-V ' W: double precision / A-V: integer 
CLS 


REM ** MAIN LOOP «* 
DO 
REM жж INITIALIZE WWl & WW2 & INPUT WORD ** 
wwl = 0: ww2 = 1 
LOCATE 14, 5: PRINT SPACE$(70) 
LOCATE 14, 5: INPUT "Your word"; Word$ 
IF Word$ = "* THEN EXIT DO 
Word$ = UCASES$(Word$) 


REM ** CALCULATE WWl & WW2 ** 
FOR num = 1 TO LEN(Word$) 
Letter$ = МІр$(Мотӣ$, num, 1) 
IF Letter$ >= "A" AND Letter$ <= °Z” THEN 
Lscore = ASC(Letter$) - 64 
wwl = wwl + Lscore 
ww2 = ww2 * Lscore 
END IF 
NEXT num 


REM ** PRINT RESULTS, GO FOR MORE ** 
LOCATE 5, 5: COLOR 11, 0: PRINT STRINGS$(50, 223) 
LOCATE 10, 5: PRINT STRING$(50, 220) 
LOCATE 7, 10: COLOR 7: PRINT SPACE$(60) 
LOCATE 8, 10: PRINT SPACES(60): LOCATE 7, 10 
PRINT “WORDSWORTH #1 for *; Word$; " is "; : COLOR 25: PRINT wwl 
COLOR 7: LOCATE 8, 10: PRINT “WORDSWORTH 82 for "; Word$; " is *; 
COLOR 28: PRINT ww2: COLOR 7: PRINT 
LOOP 


END 


Program 1-6. WORDSWORTH — With Graphics 
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The QuickBASIC program replaces the WHILE. ..WEND loop of 
Program 1-5 with a DO. . .LOOP, which is more flexible. Changes 
have also been made to the PRINT RESULTS, GO FOR MORE 
block so that the results are enclosed within light cyan lines. The 
word values for WORDSWORTH #1 and WORDSWORTH #2 
blink in light blue and light red, respectively. A typical output of 
Program 1-6 is shown in Figure 1-6. 


Review 


This chapter gave you a brief look at the development of BASIC as 
a programming language over a period of years. You reviewed the 
advantages and disadvantages of the two methods of translating 
BASIC to the computer's native machine language —by compiler 
and by interpreter. You saw the differences between GW-BASIC 


WORDSWORTH 81 for QUICKBASIC is 95 
WORDSWORTH #2 for QUICKBASIC is 188785754 


Figure 1-6. Output of Program 1-6 
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and Applesoft BASIC and learned that GW-BASIC and Quick- 
BASIC are more flexible than Applesoft in several ways. 

This chapter also showed you the type of programming con- 
ventions and style to expect in the rest of this book. When con- 
ventions and style are consistent, programs and text are much 
easier to read and understand. 

Programs are separated into functional blocks. REM statements 
are used to document the program blocks. Multiple statements on 
a line are used only і the statements are clearly related. Descriptive 
variable names are used, and spacing is consistent and designed for 
clarity. 

Six programs demonstrate the conventions and style used 
throughout this book. Program 1-6 was written in QuickBASIC to 
give you a preview of things to come. Table 1-1 listed GW-BASIC 
statements and functions that cannot be used in Quick BASIC, and 
Table 1-2 listed GW-BASIC statements and functions that must be 
modified when used in QuickBASIC. 

This chapter has provided you with a starting point for under- 
standing the QuickBASIC statements and functions that will be 
used throughout this book. 


Overview of 
QuickBASIC 4.5 


This chapter describes how to use the QuickBASIC Program Disk. 
It takes you through the steps of entering, saving, and running 
three types of programs: 


W Anew QuickBASIC program 
W A previously saved QuickBASIC program 
ш A GW-BASIC program previously saved in ASCII format 


You will learn how to use the File menu and the Run menu to 
write, save, print, compile, and run a program. Dialog boxes, which 
appear when selected menu items need additional information, are 
explained. Simple editing techniques and the use of on-line help 
are introduced. 

The Microsoft QuickBASIC compiler requires at least 384K of 
memory and a minimum of 720K of disk drive capacity. Microsoft 
recommends a hard disk drive and 640K of memory for best 
performance. 
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There are many possible computer hardware configurations 
that may be used to run QuickBASIC. It would be cumbersome 
and distracting to provide detailed discussions for each possible 
configuration. The discussions in this chapter assume you are 
using two disk drives but no hard disk. If you are using a hard disk, 
your task is simplified. Merely copy all the Microsoft QuickBASIC 
files onto your hard disk, and run QuickBASIC from there. If you 
use a hard disk, some of your screens will be slightly different from 
those shown in this book. 

The following MS-DOS commands are used in this chapter: 


DIR Lists the files on a disk 

FORMAT Formats a disk 

DISKCOPY Copies all files from one disk to another 
COPY Copies selected files 


We are assuming that you have some knowledge of MS-DOS, if 
not, stop now and browse through your MS-DOS manual. 

QuickBASIC 4.5 is discussed in this book. Because it has easy- 
to-use menus, you don't have to memorize all of the commands 
associated with most other compilers. You can edit, compile, run, 
debug, and recompile programs without leaving the QuickBASIC 
environment. If you have used earlier versions of QuickBASIC, 
you will find version 4.5 more powerful and easier to use. 


Making Backup Copies of 
QuickBASIC 


The first thing you should do is make backup copies of the original 
QuickBASIC disks. Then put the original disks in a safe place in 
case you need to replace the copies at a later time. There are two 
ways to make backup copies of the QuickBASIC disks: 


B Run the SETUP.EXE file that is located on the original Set- 
up/Microsoft Express Disk. This file installs QuickBASIC on a hard 
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or floppy disk system. When you install QuickBASIC, choose the 
default settings (Easy Setup). The shortened, Easy menus are used 
in the first part ofthis book. You can change the setup options later 
from within QuickBASIC when you need to. 

If you use this setup method for a floppy disk system, you will 
need five 360K or three 720K formatted blank disks. The setup 
program will lead you through the steps to copy the disks. 


W Use the MS-DOS DISKCOPY command to copy each original 
QuickBASIC disk to a backup disk. 


There are many files on the original disks. For the first few 
chapters, you will need only the Program Disk, which contains the 
QB.EXE and QB45QCK.HLP files. The QB.EXE file contains the 
QuickBASIC development environment, and the QB45QCK.HLP 
file contains on-line help information. 

Regardless of which method you used to make backup copies of 
the QuickBASIC original disks, you should now create a work disk 
to use as you progress through this book. From MS-DOS, format 
a new blank disk as a system disk with the following command: 


FORMAT A: /S 


Then use the DISKCOPY command to copy the backup Program 
Disk to this newly formatted disk. Your screen should list the 
following files when you give the DIR command from MS-DOS for 
your work disk: 


COMMAND COM 
QB EXE 
QB45QCK HLP 


The file COMMAND.COM is from MS-DOS, and QB.EXE and 
QB45QCK.HLP are from the Program Disk. This work disk will be 
referred to as your QB work disk. 

With the COMMAND.COM file on the QB work disk, you can 
boot your computer without having to use your system disk to load 
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MS-DOS each time you want to use QuickBASIC. If you are using 
360K disks, there may not be room for COMMAND.COM, in that 
case, you will have to load MS-DOS from a system disk before using 
the work disk. 


QuickBASIC Introduction 


The Easy menu system will be used until the need for Full menus 
arises. Easy menus contain all the commands necessary for learn- 
ing QuickBASIC. 

This chapter describes three different methods to prepare to 
run a QuickBASIC program. The instructions assume that your 
QB work disk is in drive A and that drive B is used to store 
programs and data files. If you are using different drive designa- 
tions, use the appropriate substitutions for A and B. 

If you are using a two-drive system, the steps to create and run 
a new QuickBASIC program are as follows: 

1. Put your QB work disk in drive A. 

2. Put a blank formatted disk in drive B. 

3. Enter the QuickBASIC editor with the QB command. 
4. Type in the new program. 

5. Save the program to the disk in drive B. 


6. Run the program. 
To run a program that has previously been saved: 


1. Put your QB work disk in drive A. 
2. Put the disk with the QuickBASIC program in drive B. 


3. Load the program from the MS-DOS command line (A») or 
from the QuickBASIC File menu. 


4. Run the program. 


Overview of QuickBASIC 4.5 37 


To run a GW-BASIC program that has been saved in ASCII for- 
mat: 


1. Put the QB work disk in drive A. 


2. Put the disk containing the GW-BASIC program in ASCII for- 
mat in drive B. 


3. Load the program from the MS-DOS command line (A>) or 
from the QuickBASIC File menu. 


4. Remove the disk with the GW-BASIC program from drive B. 


5. Put the disk on which you want to save the QuickBASIC version 
of the program in drive B. 


6. Save the program to the disk in drive B. 


7. Run the program. 


Each of these methods is discussed in more detail in the sections 
that follow. 


A New QuickBASIC Program 


Your QB work disk will be used to enter, save, and run a program 
that simulates coin flipping. Simulations are powerful tools used to 
solve many types of tasks. Some are simple and some are complex. 
This one is simple, so you won't get tangled up in the task being 
performed. 

Program 2-1, COIN FLIPPER, has three short blocks. The first 
block contains only the REM statements that describe the program. 
The second block requests and accepts the number of coins that 
you want to flip. The final block performs the coin-flipping simu- 
lation. 

First, make sure you have your QB work disk in the default 
drive (drive A in the example). Place a blank formatted disk in drive 
B. At the MS-DOS prompt (A>), type the letters QB in uppercase 
or lowercase: 


A>QB 
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This tells the computer to load QB.EXE, the QuickBASIC file. 
Press the ENTER key. When QuickBASIC is loaded, the screen shown 
in Figure 2-1 appears. A welcome message and a copyright notice 
appear in a dialog box overlaid on the opening screen. 

Dialog boxes are embedded in the QuickBASIC environment at 
strategic places to provide you with prompts for information that 
QuickBASIC needs to proceed to the next step. You can see from 
the last two lines in the dialog box that you have two choices: 


W Press ENTER to see the QuickBASIC Survival Guide. 


W Press ESC to clear the dialog box. 


Now press the ESC key to enger the COIN FLIPPER program. 


REM жж COIN FLIPPER xx 
' USING QuickBASIC, Chapter 2 
' Microsoft QuickBASIC 4.5 File: UQBO201.BAS 


REM ** Get number of flips xx 

' Get number of coins to flip 

CLS : RANDOMIZE TIMER 

INPUT "I flip coins. How many should I flip"; numflips 
PRINT 


REM жх Flip coin required number of times ** 
FOR counter = 1 TO numflips 
flip = INT(2 * RND(1)) 
IF flip = 0 THEN PRINT “HEADS”, ELSE PRINT “TAILS”, 
NEXT counter 
END 


Program 2-1. COIN FLIPPER 
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File Edit Uieu Search Run Debug Options 
: Untitled 


Welcome to 
Microsoft (R) QuickBASIC Version 4,50 
(C) Copyright Microsoft Corporation, 1985-1988, 


All rights reserved, 
Simultaneously published in the U.S, and Canada, 


Press Enter to see the QuickBASIC Survival Guide 


Figure 2-1. Open screen 


The QuickBASIC 
Environment Screen 


When you press the ESC key, the dialog box is removed, leaving the 
screen shown in Figure 2-2. The QuickBASIC editor is now ready 
for you to enter the new program. The large, blank rectangular 
area is called the View window. This is where you enter text. The 
cursor (the blinking underscore character) shows where the text will 
appear. If you have a mouse installed, the mouse pointer appears 
near the center of the screen. 

The View window can be split into two separate windows. If the 
first window contains the text of your source file (the main part of 
your program), the second window can be opened and used to 
display another part of your program (for example, a subpro- 
gram). You can edit the text in either window. Since the new 
program is short and simple, use only a single window at this time. 
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File Edit Uiu Search Hun. Debug Options 
Untitled 


Ghif tF12He!y? <P6=Window? q[F2-Subs?. FSR Fü-5tej? ВРЯВІ RAT 


Figure 2-2. The QuickBASIC environment screen 


The name of the file being edited is displayed at the top of the 
View window in the (itle bar. Since no name has been given to the 
new program yet, "Untitled" is displayed in the title bar in place of 
the filename. The information in the title bar is highlighted; that is, 
it appears in reverse video. 

The long, blank rectangular area near the bottom of the screen 
is called the Immediate window. You can enter and execute Quick- 
BASIC statements directly in this window. 

The menu bar at the top of the screen contains the names of the 
QuickBASIC menus for Easy Menus: File, Edit, View, Search, Run, 
Debug, Options, and Help. 

Scroll bars at the right and bottom edges of the active window 
show your relative position in the file. They can be toggled on and 
off through the Option menu's Display dialog box, which is dis- 
cussed in Chapter 4. 

The reference bar is displayed at the bottom of the screen, below 
the Immediate window. The information in this line is provided to 
help you make decisions at the current point of program devel- 
opment. 
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Entering the COIN 
FLIPPER Program 


Enter Program 2-1 in the Edit window. If you make a mistake in 
typing, there are two easy ways to erase the mistake: 


ш Press the BACKSPACE key to erase the character to the left of the 
cursor. 


ш Press the DEL key to erase the character above the cursor. 


The arrow keys (up, down, left, and right) move the cursor over 
characters without erasing them. Use these basic editing aids as you 
enter the program. 


Эр NOTE Amore complete discussion ofthe QuickBASIC editor and 
its use appears in Chapter 4. 


When you have entered the program, read through it for any 
errors you might have overlooked. If you find any, move the cursor 
to the appropriate position and correct the error. 

Rather than running the program at this point, you should first 
save it. If you run the program before saving it, some logical error 
might cause the program to malfunction; you might have to reset 
the computer, which would erase the program from memory. To 
avoid any chance of having to reenter the program from the 
keyboard, save it first. You may then reload it at any time from the 
File menu, as described later in this chapter. 


Saving the COIN 
FLIPPER Program 


When you are satisfied that you entered the program correctly, 
press the ALT+F key combination to access the File menu. The File 
menu appears near the top left corner ofthe screen. Notice that the 
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New Program command is highlighted and that the following 
message appears in the reference bar: 


Removes currently loaded program from memory 


Each time you press the DOWN ARROW key, the highlight moves down 
one item. The result of selecting each highlighted item is shown in 
the reference bar. 

Look through the complete list of commands by pressing the 
DOWN ARROW key. Table 2-1 lists the information you will see in the 
reference bar. When you press the DOWN ARROW key while the high- 
light is on the last item, the highlight moves back to the top of the 
list. 

Press the DOWN ARROW key until the highlight is on the Save As 
command, as shown in Figure 2-3. If you should pass the Save As 
command, use the UP ARROW key to move the highlight back up. 
Pressing the UP ARROW key moves the highlight up one item. If the 
highlight is on the first item and you press the UP ARROW key, the 
highlight moves to the bottom of the list. 

The Save As command illustrates the use of an ellipsis (.. . ). 
The Open Program and Print commands are also followed by 
ellipses. The ellipsis indicates that more information is needed 
when these commands are selected. If an ellipsis does not appear 
after a command, the command is executed immediately when 
selected, without requiring further information. The discussions in 
this book give all command names without ellipses. 


Menu Command Reference Bar Information 

New Program Removes currently loaded program from menu 

Open Program Loads new program into memory 

Save As Saves current module with specified name and 
format 

Print Prints specified text or module 

Exit Exits QuickBASIC and returns to DOS 


Table 2-1. File Menu Reference Bars 
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| Program 
n Progran.., 2 Pr 2 
ғи ІС 4.5 File: Ш9В0201,.005 


FLIPS & FLIP COINS жє 
ta flip 


Hou папу should | flip": nunf lips 


Ps 
flip = INT(2 © AND(1)) 
IF flip = 8 THEN PRINT "HEADS", ELSE PRINT "ТАП", 
NEXT counter 
END 


| q URAHARA ИННАА АНИКИН RARER икн 


Inned iate 


p | Saves current module vith specified паме and format 
Figure 2-3. File menu with Save As highlighted 


With the Save As command highlighted, press the ENTER key. A 
dialog box appears to prompt you for information needed for 
saving the file. The cursor blinks in the rectangle to the right of 

"File Name:,” as shown in Figure 2-4. Notice the default path below 
"File Name:." If you did not provide a different drive designation 
in the filename, the file would be saved to drive A in this example. 

Type the complete path name for the file. To save the program 


to drive B under the name UQB0201.BAS, you would type 
B:UQB0201 


QuickBASIC will automatically provide the .BAS extension. If you 
wanted to save the program with a different extension, such as 
PRO, you would type 


B:UQB0201.PRO 
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Wi Edit Uiew Search Run Debug Options 


tem Untitled 
|\НЕП жє COIN FLIPPER vx 
* USING QuickB Save As 


|" Microsoft Qu 


INPUT "I flip Dirs/Drives 

PRINT Format 
|! Flip coins (*) QuickBASIC - 
| FOR counter : Fast Load and 
‘ j jq Save 


j||NEXT counter 3 ( ) Text - 
END Я Readable by 
| Other Programs 


Borg «саке! › < Help > 


Fi-Help Enter=Execute — Esc-Cancel 
Figure 2-4. Save As dialog box opened 


Filenames must conform to MS-DOS format: The main part can be 
no more than eight characters long, and the extension can have up 
to three characters. 

When you have typed in the filename press the TAB key. The 
cursor will move to the top item in the Dirs/Drives list, as shown 
below: 


Dirs/Drives 
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When you press the TAB key again, the cursor moves between the 
parentheses in front of the first item in the Format list as shown 
below. The dot above the cursor indicates that this item is currently 
selected. 


Format 
(9 QuickBASIC - 

x Fast Load and 
Save 


( ) Text - 
Readable by 
Other Programs 


Press the DOWN ARROW key once. This moves the cursor to the second 
item, "Text — Readable by Other Programs.” This is the selection 
you want. At the bottom ofthe dialog box are listed three command 
buttons: OK, Cancel, and Help. Notice that OK is highlighted. 
When the OK button is highlighted, the selections displayed in the 
dialog box are active; if you pressed the ENTER key, the following 
selections would be used: 


File Name: B:UQB0201.BAS 
Format Text 


as shown in Figure 2-5. Since these are the selections you want, 
press the ENTER key to save the file. 

After saving the program, you may want to make a paper copy 
on your printer. To do so, access the File menu by pressing ALT+F, 
move the highlight to the Print command using the DOWN ARROW key, 
and press ENTER. The dialog box shown in Figure 2-6 appears. 
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Save fis 


CLS 
TINPUT "I flip 

i| PRINT Format 

| Flip coins ( ) QuickBASIC - 
WOR counter = Fast Load and 
| flip = INTO d Save 

| i flip -@ it 


‘NEXT counter ү. (9) Text - 
| d Readable by 
Other Programs 


@ ок < Cancel > 


Enter-Execute _Esc=Cancel Tab=Next Field Arrov=Next Iten 
Figure 2-5. Save As dialog box with selections made 


You can select one of the three print options to perform the 
actions shown in Table 2-2. Since you have not selected any specific 
text, the first option cannot be used. (Selecting text will be covered 
in Chapter 4.) Since this program is short and entirely contained in 
the active window, either of the last two options in the Print dialog 
box may be used to print the program. 

The dot between the parentheses in the Print dialog box indi- 
cates that the Current Module option is active. Press the ENTER key 
to print the file. 


Running the COIN 
FLIPPER Program 


Programs are run from the Run menu. When you press the ALT+R 
key combination, the Run menu appears in a window near the top 
center of the screen with the Start command highlighted, as shown 
in Figure 2-7. 
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Selection Action Performed 

Selected Text Prints only the text selected (highlighted) in the 
active window 

Active Window Prints the contents of the active window, usually a 


complete main module, FUNCTION procedure, 
or SUB procedure 

Current Module Prints the contents of the file associated with the 
active window 


Table 2-2. Print Option Dialog Box Selections 


You can select a Run menu command by pressing the DOWN 
ARROW or UP ARROW key to highlight the desired command. Press the 
DOWN ARROW key to look through all the commands, and watch the 
information change in the reference bar. The commands and their 
explanations are shown in Table 2-3. 

Return the highlight to the Start command, and press ENTER to 
run the program. 


| КОШ) Edit View Search Run Debug Options 
; ug UQB8291 . BAS 

ВЕН жи COIN FLIPPER wx 

Р USING QuickRASIC, Chapter 2 

i? Microsoft QuickBASIC 4.5 File: URBO2B1. BAS 


REM жє CET NUMBER OF FLIPS & FLIP COINS x 
|^ Get nunher of coins t Print 
CLS 
I INPUT "I flip colus. H ( ) Selected Text 
|| PRINT ( ) Active Window 
! Flip coins (+) Current Module 
ГОВ counter = 1 TO nunf 
i) flip = INT(2 © RNDCD 
i} IF fli d A THEN PRIN 
j[NEXT counter 
HEND 


| d ERRARE RARER EER: ЛИЕВ TARR ERR 


1H. E ane’: 


Figure 2-6. Print dialog box 
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Menu Command Reference Bar Information 

Start Runs current program 

Restart Clears variables in preparation for restarting single 
stepping 

Continue Continues execution after a break 

Make EXE File Creates executable file on disk 


Table 2-3. Кип Menu Reference Bars 


Your program is quickly scanned for errors. If there are no 
errors, the screen clears and the following prompt appears at the 
top of the screen: 


I flip coins. How many should I flip? _ 


A run with 50 coin flips is shown in Figure 2-8. Results will vary as 


File Edit View Search ЩЩ Debug Options 


REM se COIN TLIPPTR «s 
"USING QuickBASt€, Chapte tart 


'|' Microsoft QuickBASIC 4.5] ls n stat FS 


[REP жи СЕТ NUMBER OF ГЫР] Make EJE ЖАТ 


’ Get nunher af coins to f 
ACLS 
INPUT "I flip cuius, luu many should | Etip": nunf lips 
PRINT 
P Flip coins 
(ГОН counter - 1 TO nunt lips 
flip = INT(2 x RND(1)) 

UF flip = Ө THEN PRINT "HEADS", ELSE PRINT "TAILS", 
{NEXT counter 


| a ТИШТЕДИ 


ҮЕНИ 


nned iabe 


: 
Figure 2-7. Кип menu with Start highlighted 
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I flip coins. Hou many should 1 flip? 58 


TAILS TAILS 
HEADS 
HEADS 
TAILS 
TAILS 
TAILS 
TAILS 
TAILS 
TAILS 
HEADS 


to continue 
Figure 2-8. Output of COIN FLIPPER program 


HEADS or TAILS is randomly selected. The screen is cleared, and 
the random number generator is seeded by the following line of the 
program: 


CLS: RANDOMIZE TIMER 


When the run is completed, you will see the message “Press any key 
to continue” at the bottom of the screen. When you press any key, 
you are returned to the View window with the program displayed. 
What if there is an error in the program? Consider the case 
where the NEXT statement has been omitted from the FOR 
. . .NEXT loop used in the program. To create the error, move the 
cursor to the N of the NEXT statement in the Flip Coins block. 


50 


Using QuickBASIC 


REM яж Flip coin required number of times *x 
FOR counter » 1 TO numflips 
flip = INT(2 * RND(1)) 
IF flip = 0 THEN PRINT "HEADS", ELSE PRINT “TAILS”, 
cursor ~ NEXT counter 
END 


Press the CTRL+Y key combination to delete the line and introduce 
the error. QuickBASIC will find the error when you try to run the 
program, which now looks like this: 


REM ** Flip coin required number of times ** 
FOR counter = 1 to numflips 

flip = INT(2 * RND(1)) 

IF flip = 0 THEN PRINT "HEADS", ELSE PRINT “TAILS”, 
END 


Access the Start command from the Run menu again, and press 
ENTER. When the program is scanned for errors this time, an error 
is detected. An error dialog box appears near the center of the 
screen, describing the error and highlighting an OK button, as 
shown in Figure 2-9. 

Notice also that the variable numflips in the FOR statement is 
also highlighted. This indicates that QuickBASIC cannot find the 
statement that must accompany FOR; since the NEXT statement 
is missing, QuickBASIC cannot determine where the end of the 
loop is. 

To correct the error, first remove the dialog box by pressing the 
ENTER key while the OK button is highlighted. The dialog box 
disappears, and the cursor appears under the E in END. Press the 
ENTER key to open a blank line before the END statement. Press the 
UP ARROW key to move the cursor to the beginning of the blank line. 
Now, you can retype the NEXT statement in its correct spot in the 
program. 
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File Edit Uieu Search Run Debug Options 


= Novus - UQp9281. BAS 
NTN жя COIN FLIPPER x» 

? USING QuickBASIC, Chapter 2 

' Microsoft QuickBASIC 4,5 File: UQB8201.BfS 


REM эе GET NUMBER OF FLIPS & FLIP COINS xx 
? Get minder of coins to flip 
CLS 
INPUT "I flip cuins, Hou nany should | flip": nunf lips 
PRINT 
! Flip coins 
FOR counter = 1 TO 
flip = INT(2 © RND(1)) 
IF flip = A THEN PRINT "HEADS", ELSE PRINT "TAILS", 


END 


FOR uithout NEXT 


Q ok B «Hip? 


Figure 2-9. Error dialog box 


IF flip = 0 THEN PRINT "HEADS", ELSE PRINT "TAILS", 
NEXT counter 


END 


After making the correction, use the Save As command from the 
File menu to save the program. 


A Previously Saved 
QuickBASIC Program 


The method for preparing a run ofa previously saved QuickBASIC 
program is the simplest of the three types of programs, since you 
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already have a QuickBASIC program to use. For this demonstra- 
tion, make sure your QB work disk is in drive A and the disk 
containing Program 2-1 is in drive B. 


Loading a Previously 
Saved QuickBASIC 
Program 


You can load Program 2-1 in two ways: 


m Use the MS-DOS command line to load both QuickBASIC and 
the program by including the name of the program in the 
command. 


A>QB B:UQBO201 


This method loads QuickBASIC from drive A and loads 
UQB0201.BAS from drive B. You bypass the File menu and go 
directly to the editor with the program in the View window. You 
can then access the Start command from the Run menu to run the 
program. 


ш Load only QuickBASIC with the QB command on the MS-DOS 
command line. 


A»QB 


When QuickBASIC is loaded, use ALT+F to access the File menu. 
Move the highlight down to the Open Program command, and 
press ENTER. The Open Program dialog box, shown in Figure 2-10, 
appears. You can access the file by typing B:UQBO201 in the “File 
Name:" window near the top of the screen and pressing ENTER. 


With the second method, you could also use the following steps 
to access the file: 
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B Edit View Search Run Debug Options 
Open Progran 


File Маме: 


fi^ 
Dirs/Drives 


ПИРОТА АКЕ 


< Cancel > 


Figure 2-10. Ореп Program dialog box opened 


1. Press the TAB key to move the cursor to the top item ([-A-]) of the 
"Dirs/Drives" box. 


2. Press the DOWN ARROW key twice to highlight the second item ([-B-]) 
of the "Dirs/Drives" box. The information in the "File Name:" box 
changes to show the wild card selection for .BAS files on the disk 
in drive B:*.BAS, as shown in Figure 2-11. 


3. Press ENTER to display the list of .BAS files saved on the disk in 
drive B. Only one file is listed, as shown in Figure 2-12. 


4. Press the TAB key to move the cursor to the list of files. 


5. Press the DOWN ARROW key to highlight UQB0201.BAS. Then press 
ENTER to load the program. 


Regardless of which method you use, the program will be loaded 
and displayed in the View window when you enter or select the 
program name and press the ENTER key. 
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NUM Edit View Search Run Debug Options 


Open Prograa 


ASS 
Dirs/Drives 


Figure 2-11. Open Program dialog box with drive B selected 


Running the 
QuickBASIC Program 


Use the ALT+R key combination to access the Run menu. It appears 
in a window with the Start command highlighted, as shown in 
Figure 2-7. With the Start command highlighted, press the ENTER 
key to run the program. 

Run the program several times to see that the results are indeed 
random. 


A Previously Saved GW-BASIC 
Program 


If you use GW-BASIC, read on; otherwise, skip this section. 
A GW-BASIC program must be in ASCII format before Quick- 
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B Edit View Search Run Debug Options 


Open Pragram 


BN 
Files Dirs/Drives 


UQB9281 , BAS 


Figure 2-12. Open Program dialog box with files listed 


BASIC can compile and run it. If you have not already saved 
Program 1-3, VALUE OF STOCKS, in ASCII format, stop now, 
return to GW-BASIC, load or enter Program 1-3, and save it in 
ASCII format with the following command: 


SAVE"B:UQBO103.BAS"^,AÀ 


With the disk containing the program in drive B and your QB work 
disk in drive A, type QB at the MS-DOS prompt, and press ENTER. 
Press the ESC key to display the QuickBASIC environment screen 
shown in Figure 2-2. 
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Loading the GW-BASIC 
Program 


Press ALT+F to access the File menu. Then press the DOWN ARROW key 
until the Open Program command ofthe File menu is highlighted, 
as shown in Figure 2-13. 

The Open Program dialog box (see Figure 2-10) appears. Type 
the complete path name (including the disk drive containing the 
UQBO0103 file and the filename) in the "File Name:" box. 


File Name: B:UQB0103 


Then press ENTER to load the program. Figure 2-14 shows the 
loaded program, line numbers and all. QuickBASIC has made two 
subtle spacing changes in the program: It has inserted a space 
between “CLS” and the colon in line 110 and between the semi- 
colon and the colon in line 220. 

You can move the cursor through the program if you wish to 
edit the program. Pressing the DOWN ARROW key moves the cursor 


IET Edit Uieu Search Run Debug Options 


а КНН ИИНЕНИН ШЕШИНЕ 


nned iate 


p | Loads nev program into memo 
Figure 2-13. File menu with Open Program highlighted 
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File Edit (игу Search Run Debug Options 
UBB IBI BAS 
1 REM xx VALUE OF STOCKS »« 
2 ' USING QuickBASIC, Chapter 1 
3 ! GU-BASIC File: ШВ9103,ВАЅ 
9 
100 REM зе ENTER DATA & CALCULATE WORTH s 
118 CLS : WORTH = 8: SHARES = .8881 
128 STS = "$$are 828, 888.00" 
139 WHILE SHARES <> В 
148 INPUT "NUMBER OF SHARES ": SHARES 
158 INPUT "PRICE PER SHARE ": PPS 
168 WORTHS = WORTHR + SHARES x PPS 
178 PRINT 
188 VEND 
199 ' 
208 REM +» ROUND OFF & PRINT WORTH ++ 
218 WORTH® = IMT(HORTHÉ * 108 + .S) / 108 
220 PRINT “TOTAL VALUE OF STOCKS = “: : PRINT USING STS: WORTHS 
230 END 


i hif t:FI-Help? <P6=Vindouw> <F2=Subs> <Th=Rim> <PA=Step> C AAAAL- ARI : 
Figure 2-14. Environment screen with UQB0103.BAS loaded 


down one line. If the cursor is on the bottom line, pressing the DOWN 
ARROW key scrolls the program up one line (or moves the View 
window down one line), showing a blank line at the bottom of the 
screen. You can return the cursor to the first line of the program 
by pressing the CTRL+HOME key combination. 

QuickBASIC allows up to 255 characters on a single line. If a 
program contains long lines that extend beyond the right side of 
the View window, you can scroll the View window to the right by 
pressing the RIGHT ARROW key until the end of the line is visible. To 
scroll the screen back to its original position, press the LEFT ARROW 
key until the line numbers appear at the left side of the window. 


Saving the GW-BASIC 
Program 


Insert the QuickBASIC data disk containing Program 2-1 into 
drive B so that you can save Program 1-3 to the same disk. 


58 


Using QuickBASIC 


To save Program 1-3, select the Save As command from the File 
menu, and press ENTER. Since the program already had a name 
when it was loaded, that name appears in the “File Name:” box 
with the appropriate drive designation attached. Just press the 
ENTER key to save the program with its current name. 

After you have saved the program, access the File menu, move 
the highlight to Open Program, and press ENTER. When the dialog 
box appears, type the following in the “File Name:” box. 


B:*.BAS 


The asterisk (called a wild card) tells the computer to list all files on 
the disk in drive B that have the .BAS extension. When you press 
ENTER, the following files are listed. 


UQBO103.BAS 
UQB0201.BAS 


Press the ESC key to remove the dialog box and return to the 
program in the View window. You are ready to run the program. 


Running the 
GW-BASIC Program 


Press the ALT+R key combination to access the Start command from 
the Run menu. Press ENTER to run the program. Since you already 
successfully ran Program 1-3 from GW-BASIC and it contains no 
prohibited statements, you can expect it to run successfully in 
QuickBASIC. 

The program will work the same way it did in Chapter 1. Make 
entries for the number of shares and price per share of each stock, 
as before. The value of your portfolio will be displayed when you 
enter 0 for the number of shares and any number for the price per 
share. 
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Other Menus 


You have seen how the File and Run menus look and how they 
work. This section contains a brief description of the other Easy 
menus. Each description contains the information shown on the 
status line as you select items from the menus. These menus will be 
discussed in more detail as they are used later in the book. 


Edit Menu 


The Edit menu contains three commands: Cut, Copy, and Paste. 
These commands are used to edit programs. 


Cut Deletes selected text and copies it to buffer 
Copy Copies selected text to buffer 

Paste Inserts buffer contents at current location 
View Menu 


The View menu is used to display various parts ofa program in the 
View window or to display the output screen. 


SUBs Displays a loaded SUB, FUNCTION, 
module, include file, or document 

Output Screen Displays Output screen 

Included Lines Displays include file for viewing only 


(not for editing) 


Search Menu 


The Search menu is used to find or change specified text. 
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Find Finds specified text 
Change Finds and changes specified text 
Debug Menu 


The Debug menu is used to control program execution of a pro- 
gram so that sophisticated debugging tools may be used to view 
selected items or to interrupt the program at specified points. 


Add Watch Adds specified expression to 
the Watch window 

Instant Watch Displays the value of a variable 
or expression 

Delete Watch Displays specified entry from 
Watch window 

Toggle Breakpoint Sets/clears breakpoint at cursor 
location 

Clear All Breakpoints Removes all breakpoints 


Options Menu 


The Options menu allows you to set selected elements of the 
QuickBASIC environment. 


Display Changes display attributes 

Set Paths Sets default search paths 

Full Menus Toggles between Easy and Full menu usage 
Help Menu 


The Help menu is used to obtain specific help information. 


Review 
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Index Displays help index 

Contents Displays help table of contents 

Topic: Displays information about the BASIC key- 
word that the cursor is on 

Help on Help Displays help on help 


In this chapter, you made backup copies of all the original Mi- 
crosoft QuickBASIC disks. You then system-formatted a blank 
disk. On this disk, you copied the backup Program Disk. The result 
was a QB work disk, which you used to write, save, print, and run 
a new QuickBASIC program, COIN FLIPPER. You used the QB 
work disk to load and run a previously saved QuickBASIC pro- 
gram. You also used the QB work disk to load, save, and run a 
GW-BASIC program, VALUE OF STOCKS, that had been saved 
in ASCH format. 

You learned to use the File and Run menus to create a new 
program, to load a previously saved program, and to run both 
types of programs. You learned how to respond to dialog boxes 
that are displayed when a menu command needs more informa- 
tion. Commands from the Edit, View, Search, Debug, Option, and 
Help menus were listed with brief explanations. 


Building a Toolkit 


Every language has its own set of rules that must be followed for 
effective communication. This chapter discusses some of the most 
important rules to follow when using QuickBASIC, rules that allow 
you to take advantage of such QuickBASIC enhancements as long 
strings and variables, blocked program statements, structured for- 
mats, and FUNCTION and SUB procedures. 

This chapter begins building programming tools that you can 
use in programs later. If you save a tool to disk as a separate file, 
you can merge it with your programs as needed. Much of this 
chapter is devoted to single-line and multiline functions. Local and 
global variables are discussed. Logical (Boolean) operations are ex- 
plained and used. 

Three QuickBASIC control structures are introduced, dis- 
cussed, and used: Block IF. . THEN. . .ELSE, SELECT CASE, and 
DO. ..LOOP. The Block IF... THEN. ..ELSE structure extends 
GW-BASIC's single-line IF. . . THEN. . .ELSE statement to a mul- 
tiline block, making the structure easier to read and providing 
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more flexibility. The SELECT CASE structure allows for multiple- 
choice decisions depending on the value of an expression. The 
expression can be either numeric or string. The DO. ..LOOP 
structure allows you to test for a True or False condition at either 
the beginning or the end of a loop. The loop is executed either 
WHILE a condition is satisfied or UNTIL a condition is satisfied. 
This structure allows the elimination of sometimes confusing 
GOTO statements. 


Making a Toolkit 


As you are learning to use QuickBASIC, you should be collecting 
tools that you might want to use in the future, such as the single- 
line and multiline functions introduced in this chapter. You can 
save time and write programs more efficiently if you save often- 
used functions in one place, thereby creating a handy toolkit. Your 
programming tools can consist of many function definitions saved 
as individual files all on the same disk. Using the Merge command 
from the File menu (using Full menus), you can easily add the 
desired functions to any program. 

When a function is needed in a program, place the disk con- 
taining your toolkit of function definitions in drive B. Move the 
cursor to the location in the program where you wish to place the 
definition. Select the Merge command from the File menu. When 
the dialog box appears, type the filename of the function definition 
in the File Name box. Press ENTER, and presto! — the definition is 
added to the program. This process will be explained in detail in 
the next chapter. 

You should give considerable thought to the names of the files 
that contain the function definitions. À name given to a file should 
describe what the function does, but it must fit within the MS-DOS 
restriction of eight characters plus a three-character extension. If 
the filename is the same as the name given to the function defini- 
tion, it will be easy to identify the desired file. For example, you will 
later see a single-line function definition that rounds money to the 
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nearest cent. The function is named FNroundcnt, so ROUNDCNT 
would be an appropriate name for the file. Since the name de- 
scribes the function (ROUND to the nearest CNT), locating it in a 
list of files will be easy. 


Varlables and Data Types 


QuickBASIC has two types of variables: string and numeric. A 
variable must always match the type of expression assigned to 
it— string type with strings and numeric type with numbers. 


citj$ = "CHICAGO" (both city$ and "CHICAGO" are 
strings) 
zip = 94923 (both zip and 94923 are numeric) 


QuickBASIC variable names may contain as many as 40 characters. 
Accepted characters are letters, numbers, the decimal point, and 
type-declaration characters ($ % & ! #). The first character of a 
variable must be a letter. A variable cannot be a reserved word 
(keyword), although reserved words may be embedded in a vari- 
able. For example, IF, which is a keyword, can be embedded in 
Stiff, which is a variable, not a reserved word. Even the variable 
name IF$ is acceptable, since the declaration character ($) makes IF 
embedded in the complete name; however, variables such as IF$ 
should be avoided whenever possible. 

Letters in a variable name may be uppercase or lowercase. ZIP, 
Zip, and zip are all the same variable. In fact, if you try to use ZIP 
in an early part of a program and Zip later іп the program, Quick- 
BASIC will change all occurrences to the form last used. In this 
case, all variables entered earlier as ZIP would be changed to Zip. 
This is very helpful when you decide to change a variable's case 
(upper or lower) after a program (or part of a program) has been 
written. You have to change the case in only one place; Quick- 
BASIC will change it in all other places. 

From now on, variables in this book will appear in one of the 
following three ways. 
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B All lowercase: zip cityf year% money# 
W First letter capitalized: Agent007$ Zip 


W Selected letters capitalized: ZipCode$ BigNumber# 


To make it easier for you to distinguish variables from keywords, 
which appear in all uppercase, variables will not appear in all 
uppercase letters. In addition, variables are italicized in the text. 

Five special characters are used to specify variables as string ($), 
short integer (76), long integer (&), single precision (!), or double 
precision (#). For example: 


W siate Тһе dollar sign specifies that the variable state$ repre- 
sents a string of characters. Long strings (up to 32,767 characters) 
can be used. 


W calories% The percent sign specifies that the variable calories% 
represents an integer. Integers are numeric values stored inter- 
nally as 16-bit integers in the range of —32,768 through 32,767. 


ш pennies& Тһе ampersand specifies that the variable pennies& 
represents a long integer, which is stored as a 32-bit integer in the 
range of —2,147,483,648 to 2,147,483,647 (—2° to 2?! — 1). 


ш AveragePrice! The exclamation mark specifies that the variable 
AveragePrice! represents a single-precision floating-point number. 
Single-precision numbers are precise to about seven decimal digits. 
Their range can be approximately from —3.4E + 38 to — 1.4E —45 
for negative numbers, zero, and approximately from 1.4E —45 to 
3.4E+ 38 for positive numbers. 


ш Lotsamoney# |The number sign specifies that the variable 
Lotsamoney# represents a double-precision floating-point number. 
Double-precision numbers are precise to about 15 decimal digits in 
the range of approximately – 1.8D + 308 to – 4.90 — 324 for neg- 
ative numbers, zero, and approximately from 4.90 – 324 to 
1.8D + 308 for positive numbers. The letter D is used in place of E 
to designate the power of ten in double-precision numbers. 
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The default type for a variable when $, %, &, !, or # is not 
specified is single-precision floating point, unless you set the de- 
fault type by a DEFtype statement (DEFINT, DEFSNG, DEFDBL, 
DEFLNG, or DEFSTR). You can also declare a variable type in an 
AS clause in any of the following statements: DIM, COMMON, 
REDIM, SHARED, or STATIC. 

You can use the above data specifications to conserve memory. 
There are some differences in execution speed for the different 
data types. Data is stored in the following way: 


Short integer (96) 2 bytes 

‹ Long integer (&) 4 bytes 

Single precision (!) 4 bytes 

Double precision (€) 8 bytes 

Strings ($) 6 bytes per string plus 1 byte per 
character 


Obviously, a substantial amount of memory can be saved by using 
short integers whenever possible. 

Two useful operators are associated with integer data: the 
backslash (V) and the MOD operator. The backslash performs 
integer division, rounding both the divisor and the dividend to the 
nearest integer. When the integer division is completed, the result 
is truncated (the decimal part dropped) producing an integer 
quotient. For example: 


20A 3 - 6 

20.49 \ 3.1 = 6 (the same as 20 \ 3 = 6) 
20.51 \ 3.1 = 7 (the same as 21 \ 3 = 7) 
19.49 \ 3.6 = 4 (the same as 19\4 = 4) 
19.51 \ 3.6 = 5 (the same as 20\4 = 5) 


The MOD operator computes the remainder for an integer divi- 
sion. For example: 


20 MOD 3 
20 MOD 4 
20 MOD 5 
1987 MOD 4 


uon tl 
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This operation is also called modulo arithmetic, and MOD is called 
the modulus operator. 


Program Lines 


A program line can contain a maximum of 255 characters, includ- 
ing blank spaces. A line is terminated by a press of the ENTER key. If 
you enter a line that contains more than 78 characters, the View 
window scrolls to the right after you type the first:78 characters. 
(You can think of it as either the line moving to the left or the 
window moving to the right.) When you press the ENTER key at the 
end of a long line, the View window will scroll back to its original 
position. Only 78 characters of the line can be seen in the window 
at one time. If you want to see beyond the right edge of the window, 
hold down the RIGHT ARROW key to scroll the window to the right. 
Hold down the LEFT ARROW key to move back to the beginning of the 
line. 

A program is hard to read on the screen if it contains lines 
longer than the width of the window. Also, if you list a program on 
an 80-column printer, lines longer than 80 characters will be bro- 
ken into two or more printed lines, usually at some awkward place. 
The result is a hard-to-read listing that doesn't look exactly like the 
program shown on the screen. In the interest of good program- 
ming style, a line length of no more than 80 characters is highly 
recommended. From now on, programs in this book will heed this 
recommendation. 

As you have seen, you do not have to use line numbers in a 
QuickBASIC program. However, if an occasion arises where a line 
must be identified, you can use either a line number or an alpha- 
numeric label. Line-number identifiers are like those used in GW- 
BASIC, with a range of 0 through 65,529. Since line numbers are 
not required, they are used in this book only when GW-BASIC 
programs are discussed or when GW-BASIC is compared with 
QuickBASIC. 

An alphanumeric line label can be any combination of 1 to 40 
letters and digits ending with a colon. QuickBASIC keywords are 
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not permitted as line labels by themselves, but they may be em- 
bedded in a line label. Uppercase or lowercase has no signifi- 
cance - STARTHERE ., starthere:, StartHere:, and Starthere: are 
all the same label. 

GOTO statements, which require the use of line numbers or 
line labels, will be avoided wherever possible in this book. How- 
ever, some examples of the use of line labels with such statements 
are included here for those of you who cannot seem to break the 
GOTO habit. In QuickBASIC, such structures as DO. . .LOOP and 
SELECT CASE provide a more logical form for performing tasks 
previously requiring GOTO statements. 

In a statement that references a line label, the colon at the end 
of the label is omitted; however, it must be included at the end of 
the target line, as shown here: 


GOTO start 


start: 
FOR number = 1 to 25 

char$ = MIDS(strng$, К, 1) 

IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT number 


When you use line labels, an IF. . .THEN statement has the fol- 
lowing form: 


IF amount » 0 THEN GOTO Aok 


Aok: 


Built-in Functions 


QuickBASIC has a rich repertoire of built-in functions. A function 
operates on one or more arguments and produces, or returns, one 
value. Arguments can be numeric or string. A function is a numeric 
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function or a string function. A numeric function returns a numeric 
value, and a string function returns a string value. Here are some 
examples of each type of function: 


Numeric functions: ASC INSTR INT LEN RND VAL 
String functions: CHR$ MID$ SPACE$ STR$ STRING$ 


The name of a string function always ends with a dollar sign. 
Many combinations of function and argument are possible: 


INT(100 х money + .5) «———- Numeric function, 
numeric argument 


LEN(word$) «——— Numeric function, 
string argument 


STR$ (zipcode) «——— String function, 
numeric argument 


UCASES (state$) «——— String function, 
string argument 


INSTR(start, strng$, substrng$) «——— Numeric function, 
mixed arguments 


MID$(word$, position, 1) 4«———- String function, 
mixed arguments 


QuickBASIC provides functions that are not available in Applesoft 
BASIC or GW-BASIC, including the useful LCASE$ and UCASE$. 
LCASE$(sirng$) is a string function of a string argument. In this 
example, LCASE$ returns the value of the argument (strng$) with 
all uppercase letters changed to lowercase. Characters that are not 
letters are unchanged. 

UCASE$(strng$) is also a string function ofa string argument. In 
this example, UCASE$ returns the value of the argument (strng§) 
with all lowercase letters changed to uppercase. Characters that are 
not letters are unchanged. If the original value of strng$ was lowa, 
the value returned by UCASE$(sirng$) would be IOWA; the value 
returned by LCASE(strng$) would be iowa. 
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Other QuickBASIC functions that are not available in GW- 
BASIC are introduced as needed. 


User-Defined Functions 


You can use the DEF FN statement to name and define your own 
functions. QuickBASIC allows you to define single-line functions in 
the same way that functions are defined in GW-BASIC or Applesoft 
BASIC. QuickBASIC also has a powerful multiline function defi- 
nition. 

You name and define a single-line function by adding the name 
of the function immediately following DEF FN, as in DEF 
FNroundcnt#. If the name is a numeric variable, such as 
roundcni#, the function is a numeric function. If the name is a 
string variable, the function is a string function; an example is DEF 
FNflip$. A list of variable names separated by commas (called a 
parameter list) can follow the function's name. These variables are 
dummy variables and have no meaning outside the function defini- 
tion. Therefore, you can use the names of variables used elsewhere 
in the program. The function definition is separated from the 
function name by an equal sign. This definition is an expression 
that computes the string or numeric value assigned to the function. 
It must be the same type (string or numeric) as the variable that 
names the function. For example: 


DEF FNroundent*# (тө) = SGN(m#) ж INT(100 * abs(m*) + .5) / 100 


DEF FNflip$ = MIDS("HEADTAIL", 4 * INT(2 * RND) + 1, 4) 


A DEF FN function must be defined before it is called or used. 
Therefore, you should place function definitions near the begin- 
ning of the program in which they are used. 

Program 3-1, DOLLARS AND CENTS, demonstrates a nu- 
meric function of a numeric variable defined to round a number to 
the nearest penny. The function, FNroundcnt#, is defined as a 
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REM ** DOLLARS AND CENTS ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0301.BAS 


REM жж Define Function FNroundenté ** 

' Double precision function to round a 

' double precision number to two places 

DEF FNroundcnt* (тж) = SGN(m*) * INT(100 я ABS(m#) + .5) / 100 


REM ** MAIN PROGRAM TO TEST FUNCTION +x 
' Clear the screen then call the function 
' Press ESC key to end 
CLS 
DO 
INPUT "Number, please"; testdataw 
PRINT “Rounded value is "; FNroundent&(testdataw) 
PRINT 
PRINT "Press ESC to end, a different key to continue" 
ky$ = INPUT$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 3-1. DOLLARS AND CENTS 


double-precision function so that it can work with up to 15 decimal 
digits. The following single-precision version is limited to 7 decimal 
digits: 


DEF FNroundent (m) = SGN(m) * INT(100 * ABS(m) + .5) / 100 


Both of these functions are useful for rounding numbers for in- 
ternal use. Use PRINT USING statements to format numbers 
when printing. 


Юр CAUTION Internally, numbers are stored in binary format. For 


nonintegers, the binary representation may not be exactly equal to 
the decimal value. Thus, occasionally, a simple function such as 
FNroundcnt# may fail to properly round a number whose decimal 
value has exactly three decimal places and in which the digit in the 
third place is 5. 
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You will notice that short variable names are used in many single- 
line function definitions. Single-line function definitions are quite 
often very long. Short variable names are used in these definitions 
to ensure that the definition does not extend beyond one line. 

The DOLLARS AND CENTS program illustrates the program- 
ming style that will be used throughout this book. Each block is 
opened with a REM statement. Other explanatory statements are 
proceded by the apostrophe (’), the REMARK short form. This 
style makes it easy to find and read separate functional parts of the 
program. 

The function FNroundcnt# is described and defined in the 
second block of the program. The third block clears the screen and 
uses a DO. ..LOOP to accept a numeric input and to print the 
value of the function. The DO. . .LOOP is an example of a simple 
QuickBASIC replacement for the GOTO statements that would be 
necessary in a GW-BASIC program. Notice that DEF FN is invoked 
by the name of the function in the PRINT statement. The END 
statement is unnecessary but is included to provide a clear indica- 
tion of the end of the program. 

Figure 3-1 shows a test run of the program. Note that the 
numbers are properly rounded to two decimal places. After the 
rounded number is printed, an EXIT DO option is provided. Press 
the ESC key to leave the DO. . .LOOP and end the program; press 
any other key to enter another number to be rounded. 


Your Toolkit Disk 


You can begin creating your toolkit disk by saving the FN- 
roundcnt function as a file. You don't need to save all of the 
DOLLARS AND CENTS program; save only the function defini- 
tion. Delete everything from the program except the function 
definition and descriptive remarks, as shown here: 


REM ** Define Function Roundcnté@ ** 

' Double-precision function to round a 

' double-precision number to two places 

DEF FNroundent# (m) = SGN(m*) ж INT(100 * ABS(m#) + .5) / 100 
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Number, please? 123.456 
Rounded value is 123.46 


Press ESC to end, a different key to continue 
Number, please? 123.455 
Rounded value is 123.45 


Press ESC to end, a different key to continue 
Number, please? 123.454 


.Rounded value is 123.45 


Press ESC to end, a different key to continue 
Number, please? -123.456 
Rounded value is -123.46 


Press ESC to end, a different key to continue 
Number, please? 123456789.946 
Rounded value is 123456789.95 


Press ESC to end, a different key to continue 


Figure 3-1. Output of Program 3-1 


To save the function, access the Save As command from the File 
menu. Enter B:ROUNDCNT.BAS as the filename in the File Name 
dialog box. Since you will be merging the function definition later 
with a main program, you should save the function in text format. 
Look at the Format dialog box. If "QuickBASIC - Fast Load and 
Save" is highlighted, press the TAB key to move to the Format box. 
Then press the DOWN ARROW key to move the highlight to “Text - 
Readable by Other Programs." If the OK box is not highlighted, 
press the TAB key to highlight it, as shown in Figure 3-2; and then 
press ENTER. 

If you want to verify that the function definition has been saved, 
access the Open Program dialog box from the File menu. You can 
view the directory of the disk in drive B by typing B:*.* for the 
filename. 


File Name: B:*.* 
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NI Edit View Search Run Debug Options 
EST рур eee = UQBO3G1. BAS Ба 
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Enter=Execute — Esc-Cancel Tab=Next Field Arrov=Next lten 


Figure 3-2. Save As dialog box — text selection 


Then press ENTER to see the names of all the files on the disk in drive 
B. Since ROUNDCNT. BAS is the first file in your toolkit, it should 
be the only filename listed. 

In Chapter 4, "Editing," you will learn how to insert toolkit 
function definitions in other programs. 


A Flock of Function Definitions 


A numeric function can be a short-integer function, a long-integer 
function, a single-precision function, or a double-precision func- 
tion, as determined by the variable used to name the function. The 
following list shows four ways of defining a function to return a 
random number in the range 1 to n, where is a positive number. 
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DEF FNrndintZ (nZ) = INT(nZ * RND) + 1 : 
DEF FNrndint& (n&) = INT(n& * RND) + 1 4 


DEF FNrndint (n) = INT(n * RND) + 1 s 


DEF FNrndint* (n#) = INT(n* * RND) + 1 , 


Short integer function 
Long integer function 


Single-precision 
function 


Double-precision 
function 


Select DEF FN with the appropriate identifier to meet your needs. 
Remember, the range of FNrndint%(n%) is 1 to 32,767. 


Minimum and 
Maximum Functions 


A numeric function can be defined to return the minimum of two 


numbers as follows: 


DEF FNmin (a, b) = a * ABS(a <= b) + b * ABS(a > b) 


How does it work? Suppose the value ofa is 4 and the value of b is 
7. In this case, the value of a <= b is —1 (true) and the value of 
a > bis 0 (false); thus, the value of the entire expression is a. 


a * ABS(a <= b) + b * ABS(a > b) = a 
So, the value of FNmin is 


а*1+Ь%*0=а 


Now suppose a is 6 and b is 3. In this case, 


a ж ABS(a <= b) + b x ABS(a > b) = b 
'The value of FNmin is 


а*0О+Ь*]=Ь 


If a and b are equal, the value of a is returned. 
A similar function, FNmax, returns the maximum of two 


numbers. 
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DEF FNmax (a,b) = a * ABS(a >= b) + b x ABS(a < b) 


Program 3-2, MINIMUM AND MAXIMUM, demonstrates both 
functions. If you think these functions might be useful sometime, 
save each as a separate file on your toolkit disk. You might also 
want to write and save short-integer, long-integer, and double- 
precision versions of both functions. 

Choose function names and filenames to make it easy to rec- 
ognize the function you want. For example: 


FNMININT for the short-integer function FNmin% 
FNMINLNG for the long-integer function FNmin& 
FNMINSGL for the single-precision function FNmin 
FNMINDBL for the double-precision function FNmin# 


REM ** MINIMUM AND MAXIMUM ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0302.BAS 


REM ** Function Definitions ** 

' FNmin is a single line function that returns 

' the minimum of two single precision numbers 

DEF FNmin (a, b) = а ж ABS(a <a b) + b ж ABS(a > b) 


' FNmax is a single line function that returns 
' the maximum of two single precision numbers 
DEF FNmax (a, b) = a х ABS(a >= b) + b * ABS(a < b) 


REM ** Main Program to Test Functions яж 
CLS 


INPUT "First number^; first 

INPUT "Second number"; second 

PRINT "Minimum is"; FNmin(first, second) 
PRINT "Maximum is”; FNmax(first, second) 


PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUTS(1): IF ky$ = CHR$(27) THEN EXIT DO 


Program 3-2. MINIMUM AND MAXIMUM 
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You should also print the toolkit disk directory and slip it into the 
disk envelope along with the disk any time you add files to it. 


Defining Functions 
Without Parameters 


You can define a function without specifying a list of parameters. 
Here are some examples: 


The function FNroll3D6% simulates rolling three six-sided dice 
(3D6). It returns an integer in the range 3 to 18. 


DEF FNroll3D62 = INT(6 * RND) + INT(6 * RND) + INT(6 * RND) + 3 


The function FNflip$ simulates flipping a coin. It returns the 
string value HEAD or TAIL, randomly selected. 


DEF FNflip$ = MID$("HEADTAIL”, 4 * INT(2 * RND) + 1, 4) 
The function FNrndvowel$ returns a random vowel. 


DEF FNrndvowel$ = MID$(^aeiou", INT(S * RND) + 1, 1) 


Using Function 
Definitions 


Two programs showing the use of function definitions follow. The 
first program determines whether a year is a leap year or a com- 
mon year. The second program generates random five-letter 
words. 
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REM ** LEAP YEAR OR COMMON YEAR ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0303.BAS 


REM ** Define Variables, then Function ** 

DEFINT A-Z 

' FNleap% is a single line function that returns 

' -l if the argument is a leap year 

' 0 if the argument is a common year 

DEF FNleapz (y) = (y MOD 4 = 0 AND y MOD 100 <> 0) OR y MOD 400 = 0 


REM ** Main Program ** 
CLS 
DO 
INPUT "Year"; year 
IF FNleapZ(year) THEN PRINT "Leap year" ELSE PRINT "Common year" 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
LOOP 
END 


Program 3-3. LEAP YEAR OR COMMON YEAR 


Types of Years A year is either a common year (365 days) or a 
leap year (366 days), according to the Gregorian calendar intro- 
duced in 1582. A leap year is a year that is divisible by 4, except for 
centurial years. Centurial years are years that are multiples of 100 
(1800, 1900, 2000, and so on). A centurial year qualifies as a leap 
year only if it is divisible by 400. The year 2000 is a leap year, but 
1900 is not. So a year is a leap year if it is divisible by four and not 
a centurial year, or is divisible by 400. This fact is used in the 
function FNleap%, shown in Program 3-3, LEAP YEAR OR COM- 
MON YEAR. 

The results of a test run are shown in Figure 3-3. The program 
seems to work properly, but further testing is always advisable. 

The function FNleap% returns the value —1 if the argument is 
a leap year or the value 0 if the argument is not a leap year. Thus 
FNleap% is essentially a logical, or Boolean, function, returning the 
values of true (— 1) or false (0). Table 3-1 shows how the value of 
FNleap% is determined for several values of the argument. 
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Year? 1502 
Common year 


Press ESC to end, a different key to continue 
Year? 1988 
Leap year 


Press ESC to end, a different key to continue 
Year? 1900 
Common year 


Press ESC to end, a different key to continue 
Year? 1990 
Common year 


Press ESC to end, а different key to continue 
Year? 2000 
Leap year 


Press ESC to end, a different key to continue 


Figure 3-3. Output of Program 3-3 


Inventing Words Computers can invent words. Program 3-4, 
WORDMAKER NUMBER 1, generates random five-letter combi- 
nations in the form of consonant, vowel, consonant, vowel, conso- 
nant. Much of the work is done by the string function FNrndchr$, 
which selects one character at random from a string of consonants 
or vowels. 

The results of a test run are shown in Figure 3-4. Each word has 
the form cvcvc, where c is a consonant and v is a vowel. The letter 
y can appear in any position, since it appears in both strings (con- 
sonant$ and vowelf). 

The next time you want to coin a name for a company, a 
product, or a character in a novel that you are writing, try using 
FNrndchr$. You can quickly write a program that generates ran- 
dom words having any desired consonant-vowel structure by 
changing only the assignment statements used to compute the 
value of word$. 

In summary, the single-line DEF FN function definition per- 
forms the operation that is defined by the expression to the right 
of the equal sign. This statement is limited to a single logical line. 
Variable names that appear in the expression are local to the 
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In the following table, the letters A, B, and C are used as follows: 
A: yr MOD 4-0 

B: уг MOD 100 <> 0 

С: уг МОр 400 = 0 


уг А B A and C (A and FNieap% 
B B) or C 

1900 -] 0 0 0 0 0 

1987 0 -l 0 0 0 0 

1988 -1 -1 -1 0 -1 -1 

2000 -1 0 0 -1 -1 -1 


Table 3-1. Determining the Value of FNleap% 


REM ** WORDMAKER NUMBER 1 ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0304.BAS 


REM ** Function Definition ** 

' FNrndchr$ is a single line function that returns 

' a random character from a string 

DEF FNrndchr$ (strng$) = MID$(strng$, INT(LEN(strng$) ж RND) + 1, 1) 


REM ** Main Program ** 

' Define variables 

CLS : RANDOMIZE TIMER: DEFINT A-Z 
consonant$ = "BCDFGHJKLMNPQRSTVWXYZ" 
vowel$ = "*AEIOUY* 

word$ s "" 

' Form and print words 

FOR k = 1 TO 80 


word$ = rNrndchr$(consonant$) 
word$ = word$ + FNrndchr$(vowel$) 
word$ = word$ + FNrndchr$(consonant$) 
word$ = words + FNrndchr$(vowelS) 
word$ = word$ + FNrndchr$(consonant$) 
PRINT words, 

NEXT k 

END 


Program 3-4. WORDMAKER NUMBER 1 
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Figure 3-4. Output of Program 3-4 


expression and serve to define the function; they do not affect 
program variables that have the same name. They are dummy 
variables. If a variable name is іп the parameter list, the parameter 
is supplied when the function is referenced (called by the pro- 
gram). If a variable name is not in the parameter list, it is treated 
as a global variable and the current value is used when the function 
is referenced. 


Multiline Functions 


QuickBASIC has two more ways to define functions. One is the 
FUNCTION. ..END FUNCTION procedure, which is discussed 
in Chapter 5. The other is the multiline DEF FN...END DEF 
function definition, described here. 
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DEF FN. ..END DEF evolved from the single-line DEF FN 
statement. It provides a way to define more complex function 
definitions that cannot be squeezed into a single line. Therefore, it 
is much more powerful than the single-line function definition. 

A multiline function definition is simple and straightforward. It 
can often be used in place of the more indirect subroutine struc- 
ture. Programs with multiline functions flow more smoothly than 
programs with subroutines. A multiline function is defined and 
named in the following way: 


DEF FNsqueeze$ (strng$) 


END DEF 


FNsqueeze$ is the name of the function. That part of the name that 
follows the letters FN can be any legal variable name. If the function 
is a numeric function, its name must be followed by a numeric type 
identifier. If the function is a string function, a string type identifier 
must follow the name. 


DEF FNsqueeze$ «———— А string function definition 


DEF FNleapX 4«——— Ап integer function definition 


The opening line of the function may include a parameter list (a list 
of variable names separated by commas). The parameter list in the 
example consists of a single variable, strng$, which is a dummy 
variable. When the function is referenced (invoked), strng$ is as- 
signed a value from the statement in the program that references 
the function. For example, the function could be referenced by a 
PRINT statement. 


PRINT FNsqueeze$(teststring$) 


The value assigned to teststringf in the program would be used by 
the dummy variable, sirng$, in the function definition. 
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Finally, the line just before the end of the function definition 
assigns a value to the function's name to be passed back to the 
statement in the program that references the function. 


DEF FNsqueezeS$(strng$) 
' Squeezes spaces out of a string 
and returns the squeezed string 
STATIC squeeze$, К, char$ 
squeeze$ = *" 
FOR К = 1 to LEN(strng$) 

char$ = MID$(strng$, К, 1) 

IF char$ «» " " THEN squeeze$ * squeeze$ * char$ 
NEXT k 
FNsqueeze$ = squeeze$ 
END DEF 


EXIT DEF is an optional way to exit from the multiline function 
definition. This is used for special conditions when the normal exit 
(END DEF) is not desirable. However, a multiline function must 
end with an END DEF statement. 

Since the multiline function is essentially a definition, it must 
appear in the program before any statement that uses the function. 
Therefore, you should place function definitions near the begin- 
ning of a program. 

Program 3-5, STRING SQUEEZER, demonstrates a multiline 
function, FNsqueezef, that removes all spaces from a string. Figure 
3-5 shows a test run of the program. For each value of tesistring$ 
entered, the program prints the squeezed string with all spaces 
removed. 

The function FNsqueeze$ is a string function of a string argu- 
ment. The argument strng$ has meaning only within the function. 
You can safely use strngf as a variable elsewhere in the program. 

The variables squeeze$, k, and char$ are declared to be static 
variables, as follows: 


STATIC squeeze$, k, char$ 


Static variables are local to the function and have no meaning 
outside the function definition. You may use these same variables 
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REM ** STRING SQUEEZER ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0305.BAS 


REM ** Define Variables, then DEF FN ** 
DEFINT A-Z 
DEF FNsqueeze$ (strng$) 
' Squeezes spaces out of a string 
' and returns the squeezed string 
STATIC squeeze$, k, char$ 
squeeze$ = '" 
FOR k = 1 TO LEN(strng$) 
char$ = MIDS$(strng$, К, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNsqueeze$ = squeeze$ 
END DEF 


REM ** Main Program, TEST FNsqueeze$ ** 
CLS 
DO 
INPUT "String, please"; teststring$ 
PRINT FNsqueeze$(teststring$) 
PRINT 
PRINT "Press ESC key to end, a different key to continue” 
ky$ = INPUT$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 3-5. STRING SQUEEZER 


elsewhere in your programs. Using this function does not change 
the value of squeeze$, k, or char$ used elsewhere іп a program, 
outside the definition of FNsqueeze$. 

Also note that "squeeze$" is used as part of the function name 
and also as a variable in the definition. QuickBASIC has no trouble 
distinguishing the function name FNsqueeze$ from the variable 
squeezef. This is especially evident in the statement that assigns the 
value of squeeze$ as the value of the function: 


FNsqueeze$ = squeeze$ 
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String, please? North Dakota 
NorthDakota 


Press ESC to end, a different key to continue 
String, please? REMOVE SPACES 
REMOVESPACES 


Press ESC to end, a different key to continue 
String, please? 800 999 9999 
8009999999 


Press ESC to end, a different key to continue 


Figure 3-5. Output of Program 3-5 


р REMEMBER А multiline function always ends with the statement 
END DEF. 


A subroutine can be written to remove blank spaces from a string 
and also to change lowercase letters to uppercase. Here are two 
ways to create a QuickBASIC function to do the task: 


W Use the previously defined function FNsqueeze$ in a single-line 
function definition. 


DEF FNupsqueeze$ (strng$) = UCASE$(FNsqueeze$(strng$) ) 


@ Define a multiline function. 


DEF FNupsqueeze$ (strng$) 
' Squeezes spaces from a string 
and changes lowercase letters to uppercase 
STATIC squeeze$, k, char$ 
squeeze$ = "" 
FOR k = 1 TO LEN(strng$) 
char$ = MIDS$(strng$, k, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNupsqueeze$ = UCASES(squeeze$) 
END DEF 


$ 
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A multiline function can create substrings of longer strings by 
keeping certain characters from the source string or by purging 
certain characters from the source string. Here are two such func- 
tions: 


m The function FNafterkeep$ constructs a substring of the string 
called before$, using only characters in the string keep. 


DEF FNafterkeep$ (before$, keep$) 
STATIC after$, k, char$, keep% 
after$ = "" 
FOR k = 1 ТО LEN(before$) 
char$ = MIDS(before$, k, 1) 
keep% = INSTR(keep$, char$) 
IF keep% THEN after$ = after$ + char$ 
NEXT k 
FNafterkeep$ = after$ 
END DEF 


m The function FNafterpurge$ constructs a substring of the string 
called before$, using only characters that are not in the string 
purge$. 


DEF FNafterpurge$ (before$, purge$) 
STATIC after$, k, char$, purge% 
after$ = ** 
FOR k = 1 TO LEN(before$) 
char$ = MID$(before$, k, 1) 
purget = INSTR(purge$, char$) 
IF purgez = 0 THEN after$ = after$ + char$ 
NEXT k 
FNafterpurge$ = after$ 
END DEF 


You may want to save these function definitions on your toolkit 
disk. 


Control Structures 


GW-BASIC has a set of control structures used to make decisions 
and to perform repetitive operations. You should be familiar with 
the following GW-BASIC control structures. 
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FOR. . .NEXT loops 

IF. ..THEN. . .ELSE 

ОМ. ..GOSUB and ON. ..GOTO 
WHILE. . .WEND loops 


QuickBASIC has all of the control structures of GW-BASIC, plus 
structures not available in GW-BASIC, including the following: 


Block IF. .. THEN. ..ELSE 
SELECT CASE 
DO. . .LOOP 


These structures are powerful, flexible, and readable. The remain- 
der of this chapter describes each one and provides examples. 


Block 
IF. . ТНЕМ. . .ELSE 


The Block IF structure greatly expands the usefulness and read- 
ability of GW-BASIC's single-line IF. . . THEN. . .ELSE statement. 
Table 3-2 shows the syntax and a simple example. Here are three 
more simple examples: 


1. IF number = INT(number) THEN ' condition 1 
PRINT "Integer" ' statementblock-1 
ELSE 
FRINT "Non-integer" ' statementblock-2 
END IF 
2. IF number « 0 THEN ' condition 1 
nzp$ = "negative" ' statementblock-1 has 
flag = -1 ' two statements 
ELSEIF number = 0 THEN * condition 2 
nzp$ = “zero” ' statementblock-2 has 
flag = 0 ' two statements 


ELSE 
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statementblock-3 has 
two statements 


nzp$ = “positive” 
flag = 1 
END IF 


condition 1 
statementblock-1 
condition 2 
statementblock-2 


3. IF CorvS = "C" THEN 
word$ = word$ + consonant$ 
ELSEIF Corv$ = *V" THEN 
word$ = word$ + vowel$ 
END IF 


In writing a Block IF structure, note that 


B A line beginning with IF or ELSEIF must end with THEN. 


B A statement block (statementblock) can have any number of 
statements. 


m END IF includes a blank space, but ELSEIF does not. 
B The Block IF structure must end with END IF. 


Program 3-6, WORDMAKER NUMBER 2, puts the Block IF to 
work. With this program, you can enter the desired word structure 
and the number of words you want to have with that structure. The 
word structure is a string consisting of only the letters c and v, 
which specify consonants (c) or vowels (v). 

Figures 3-6 and 3-7 show runs for two word structures: cvcuc 
and vecucv. 


Syntax Example 

IF condition] THEN IF number = 1 THEN 
[statementblock-1] PRINT "One" 

[ELSEIF condition2 THEN ELSEIF number = 2 THEN 
[statementblock-2]] PRINT "Two" 


ELSEIF number = 3 THEN 
PRINT "Three" 


А ELSE 
[ELSE PRINT "Not one, two, or three" 
[statementblock-n]] END IF 


END IF 


Table 3-2. Block IF. ..THEN. . .ELSE Syntax and Example 
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REM ха WORDMAKER NUMBER 2 ** 

' Using QuickBASIC, Chapter 3 

' Microsoft QuickBASIC 4.5 File: UQB0306.BAS 
' Used to test FNrndwordS (wordform$) 


REM ** Define Variables, then FUNCTION ** 
DEFINT A-Z 
DEF FNrndword$ (wordform$) 
Returns a random word of the form defined by the 
value of wordform$. For example, if wordform$ 
' is 'CVCVC", the random word is of the form 
' consonant, vowel, consonant, vowel, consonant. 
STATIC word$, k, CorV$, rc, consonant$, rv, vowel$ 
word$ = °" 
FOR k = 1 TO LEN(wordform$) 
CorV$ = UCASES(MID$(wordform$, k, 1)) 
IF Corv$ = °C” THEN 
re » INT(21 * RND(1)) + 1 
consonant$ = MID$("bedfghjklmnpqrstvwxyz”, rc, 1) 
word$ = word$ + consonant$ 
ELSEIF CorV$ = "V" THEN 
rv = INT(6 * RND(1)) + 1 
vowel$ = MIDS("'aeiouy", rv, 1) 
word$ = word$ + vowel$ 
END IF 
NEXT k 
FNrndword$ = word$ 
END DEF 
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REM ** Main Program ** 
DO 
CLS : RANDOMIZE TIMER 
INPUT "Word structure (string of C's and V's)”; structure$ 
INPUT "How many words "; numwords 
PRINT 
FOR word = 1 TO numwords 
PRINT FNrndword$(structure$), 
NEXT word 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUTS(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 3-6. WORDMAKER NUMBER 2 


Building a Toolkit 91 


ord structure (string of C's and U's)? CUCUC 


Press ESC key to end, a different key to continue 


Figure 3-6. First output of Program 3-6 


The SELECT CASE 
Structure 


SELECT CASE is a multiple-choice decision structure. Table 3-3 
shows the syntax and a simple example. 

The expression following SELECT CASE can be numeric or 
string. The expressionlist in each CASE clause must be the same 
type (numeric or string) as the expression following SELECT 
CASE. 

The SELECT CASE in the example operates in this way: 


m If the value of a number is 1, 2, or 3, the corresponding string 
("One", “Two”, or “Three”) is printed. 


m Ifthe value of a number is not 1, 2, or 3, the string "Not 1, 2, or 
3” is printed. 
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ord structure (string af C's and U’s)? UCCUCU 


мапу vords ? 88 


abxyni 
yqhybo 
ilnuyo 
Unnoul 
ofviva 
aynido 
uhnino 
ulriju 
ikbeqo 
unrgki 
odqibi 
ebJire 
ugxudo 
ordynu 
ocyeyy 
ajyylo 


obne Ja uxsusl 
oldeka ezlezo 
yf hyza elfary 
oznyfy uJx ihy 
1уѕухі ugdu је 
odtuuy ivl ise 
yxtapy ykgupi 
onci Ја 
yxbaqa 
iyniva 
ycrifi 
yxcevo 
oskifo 
auxeto 
okrigy 
ugxory 


Press ESC key to end, a different key to continue 


Figure 3-7. Second output of Program 3-6 


Syntax 


SELECT CASE expression 
CASE expressionlistl 
[statementblock-1] 
[CASE expressionlist2 
[statementblock-2]] 


(CASE ELSE 
([statementblock-n]] 
END SELECT 


Example 


SELECT CASE number 
CASE 1 
PRINT ‘‘One’’ 
CASE 2 
PRINT ''Two'' 
CASE 3 
PRINT *'*'Three'' 
CASE ELSE 
PRINT ‘‘Not 1, 2, or 3'' 
END SELECT 


Table 3-3. SELECT CASE Syntax and Example 
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The converse of the example shown in Table 3-3 appears as 
follows: 


SELECT CASE NumberName$ 
CASE "One" 
PRINT 1 
CASE “Two” 
PRINT 2 
CASE "Three" 
PRINT 3 
CASE ELSE 
PRINT “Not One, Two, or Three’ 
END SELECT 


A CASE clause can specify a list of values, as the following two 
examples show: 


1. SELECT CASE number 
CASE 0, 2, 4, 6, 8 
PRINT "Even decimal digit" 
OddOrEven = 0 
CASE 1, 3, 5, 7, 9 
PRINT "Odd decimal digit" 
OddOrEven = 1 
CASE ELSE 
PRINT “Not a decimal digit” 
END SELECT 


2. SELECT CASE UCASES(LEFT$(month$, 3)) 
CASE "DEC", "JAN", *FEB" 
PRINT *Sleighbells ring, ..." 
CASE “MAR”, "APR", "MAY" 
PRINT "Spring is busting out ...” 
CASE "JUN", “JUL”, "AUG" 
PRINT "Summertime, and the ..." 
CASE "SEP", “ОСТ”, “NOV” 
PRINT "Oh, the days grow ..." 
CASE ELSE 
PRINT “Time on my hands ..." 
END SELECT 


A CASE clause can depend on a relational expression. To signal 
this, CASE is followed by IS, as in the following: 


SELECT CASE number 
CASE IS < 0 
PRINT "Negative number" 
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CASE IS O 
PRINT “Zero” 
CASE IS » O 
PRINT "Positive number* 
END SELECT 


Here the CASE ELSE clause is omitted, since a number must be 
negative, zero, or positive. No other possibilities can be handled by 
the "catch-all" CASE ELSE clause. 

Program 3-7, NUMBER OF DAYS IN A MONTH, uses SE- 
LECT CASE to differentiate months that contain different num- 
bers of days. SELECT CASE is used in FNDaysInMonth%, a 
function definition that determines the number of days during a 
month in a common year. The extra February leap-year day is 
found by using FNleap%, a function defined earlier in this chapter. 
Input a year and the number of any month in that year (1-12), and 
the program prints the number of days in that month. Figure 3-8 
shows a sample run of the program. 

Program 3-8, NUMBER OF DAYS IN A MONTH, STRING 
VERSION, also uses SELECT CASE. However, instead of numbers 
for the months, it uses three-letter strings (^JAN," “FEB,” “MAR,” 
and so on). Figure 3-9 shows a sample run. The program also uses 
а DO. . .LOOP, which is described in the next section. 


The DO. ..LOOP 
Structure 


A DO. . .LOOP repeats a block of statements WHILE or UNTIL а 
condition is satisfied. The DO. . .LOOP is more versatile than the 
WHILE. ..WEND and FOR. . .NEXT loops because of its ability to 
test for a condition either at the beginning or end of the loop. 

The DO. . .LOOP has three possible forms. The preceding pro- 
grams used an infinite loop that did not use a test condition; 
however, within the loop was the chance to escape (EXIT) from the 
loop by pressing the ESC key. 
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REM ** NUMBER OF DAYS IN A MONTH ** 

' Using QuickBASIC, Chapter 3 

' Microsoft QuickBASIC 4.5 File: UQB0307.BAS 
' Used to test FNDaysInMonth% 


REM ** Define Variables and DEF FNs ** 

DEFINT A-Z 

' FNleap% returns values as follows: 

' -] 1f the argument is a leap year 

0 if the argument is not a leap year 

DEF FNleap% (y) = (y MOD 4 = 0 AND y MOD 100 <> 0) OR y MOD 400 = 0 


DEF FNDaysInMonthZ (month) 
' FNDaysInMonth2 returns the number of days in a 
month for values of month 1 through 12. Returns 
28 for February (month = 2) and zero for invalid month. 
STATIC days 
SELECT CASE month 
CASE 1, 3, 5, 7, 8, 10, 12 
days = 31 
CASE 4, 6, 9, 11 
days = 30 
CASE 2 ~ 
days = 28 
CASE ELSE 
days = 0 
END SELECT 
FNDaysInMonth2 = days 
END DEF 


П 


П 


REM ** Main Program ** 
CLS 
DO 
INPUT "Year"; year 
INPUT "Month (1 to 12)*; month 
numdays = FNDaysInMonth2 (month) 
IF FNleapz(year) AND month = 2 THEN numdays = numdays + 1 
PRINT "Month #"; month; "has"; numdays; “days.” 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUT$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 3-7. NUMBER OF DAYS IN A MONTH 
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Year? 1939 
Month (1 to 12)? 2 
Month # 2 has 28 days. 


Press ESC to end, a different key to continue 
Year? 1940 

Month (1 to 12)? 2 

Month * 2 has 29 days. 

Press ESC to end, a different key to continue 
Year? 1941 

Month (1 to 12)? 3 

Month * 3 has 31 days. 

Press ESC to end, a different key to continue 
Year? 1941 

Month (1 to 12)? 4 

Month * 4 has 30 days. 

Press ESC to end, a different key to continue 
Figure 3-8. Output of Program 3-7 

Year? 1939 

Month? February 

February has 28 days. 

Press ESC to end, a different key to continue 
Year? 1940 

Month? February 

February has 29 days. 

Press ESC to end, a different key to continue 
Year? 1941 

Month? March 

March паз 31 days. 

Press ESC to end, a different key to continue 
Year? 2000 

Month? february 

february has 29 days. 

Press ESC to end, a different key to continue 


Figure 3-9. Output of Program 3-8 
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REM ** NUMBER OF DAYS IN A MONTH, STRING VERSION x* 
' Using QuickBASIC, Chapter 3 

' Microsoft QuickBASIC 4.5 File: UQB0308.BAS 

' Used to test FNDaysInMonth% 


REM ** Define Variables and DEF FNs ** 
DEFINT A-Z 


DEF FNleap% (y) = (y MOD 4 = 0 AND y MOD 100 <> 0) OR y MOD 400 = 0 
' FNleap% returns values as follows: 
' -1 if the argument is a leap year 
' 0 if the argument is not a leap year 
DEF FNDaysInMonth2 (month$) 
' FNDaysInMonth2 returns the number of days in a 
month for values of month% = “JAN”, "FEB", and so on. 
Returns 28 for "FEB” and 0 for invalid value of month$. 
Value of month$ can be lowercase or uppercase. 
STATIC days 
SELECT CASE UCASE$(month$) 
CASE "JAN", “MAR”, "MAY", “JUL”, "AUG", "OCT", "DEC" 
days » 31 
CASE "APR", "JUN^, "SEP", “NOV” 
days = 30 
CASE “FEB” 
days = 28 
CASE ELSE 
days = 0 
END SELECT 
FNDaysInMonthz = days 
END DEF 


REM ** Main Program ** 
CLS 
ро 
INPUT "Year"; year 
INPUT "Month"; month$ 
numdays% = FNDaysInMonth2(LEFT$(month$, 3)) 
IF FNleap%(year) AND UCASES(LEFT$(month$, 3)) = “FEB” THEN 
numdays% = 29 
END IF 
PRINT month$; " has"; numdays; "days." 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUTS(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 3-8. NUMBER OF DAYS IN A MONTH, STRING VERSION 
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DO 
INPUT "Year"; year 
INPUT "Month (1 to 12)*; month 
numdays = FNDaysInMOnth4 (month) 
IF FNleap%(year) AND month = 2 THEN numdays = numdays + 1 
PRINT "Month €"; month; “has”; numdays; "days." 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUTS$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


A different form tests for a condition at the beginning of the loop. 


DO WHILE INKEYS = "* 

' This is an empty loop that is 

' executed WHILE no key has been pressed 
LOOP 


A block of statements between the opening line (DO WHILE and 
the closing line (LOOP) consists of one or more BASIC statements. 
The expression (INKEY$ =") сап be any expression that evalu- 
ates to true (nonzero) or false (zero). 

Another form tests for the condition at the end of the loop. 


DO 
INPUT "Enter transaction"; amount 
balance = balance + amount 

LOOP WHILE amount <> 0 


The condition can be contained in either the WHILE or the UN- 
TIL clause. For example: 


DO WHILE INKEYS = °” 

' This is an empty loop that is 

' executed WHILE no key has been pressed 
LOOP 


DO UNTIL INKEYS <> °” 

' This is an empty loop that is 

' executed UNTIL a key is pressed 
LOOP 


Both forms produce the same result. 
If you want to execute the loop at least once, put the test at the 
end of the loop. (If the test were at the beginning, the condition 
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might cause the statements within the loop to be skipped.) For 
example, you may want a loop to balance your checkbook. Execu- 
tion of at least one pass through the loop would be ensured by 
writing the loop in the following form: 


ро 
INPUT "Enter transaction"; amount 
balance = balance + amount 

LOOP WHILE amount <> 0 


The loop would be executed at least once. If your first entry were 
zero, the total would not change. An exit would be made after the 
zero entry. If you entered a nonzero value, the entry would be 
added to the balance and the loop would be executed again. You 
enter negative values for checks written and positive values for 
deposits. 

An equivalent form is 


ро 
INPUT "Enter transaction"; amount 
balance = balance + amount 

LOOP UNTIL amount = 0 


An exit from a DO. . .LOOP can be made from within the loop by 
using the optional EXIT DO clause, shown earlier. A DO. . .LOOP 
can contain any number of EXIT DO statements. 

Program 3-9, COUNT CHARACTERS IN A STRING, uses a 
DO. ..LOOP with a WHILE clause at the beginning of the loop in 
the function definition. This placement ensures that the loop will 
not be executed if the condition is not satisfied. EXIT DO is located 
within the loop to end the search for a character. 

The DO. . .LOOP is a part ofa multiline function definition that 
counts the number of times a character occurs within a string. Use 
the program to test the character-counting function. Enter a string 
at the first prompt. At the second prompt, enter the character you 
wish to count. The program then counts the number of times the 
character occurs in your string and prints the result. Figure 3-10 
shows some typical results. 

A DO. . .LOOP with no conditions is used to provide an option 
for ending the program. 
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REM ** COUNT CHARACTERS IN A STRING ** 

' Using QuickBASIC, Chapter 3 

' Microsoft QuickBASIC 4.5 File: UQB0309.BAS 
' Used to test FNcountchara 


REM ** Define Variables and DEF FN ** 
DEFINT A-Z 
BEF FNcountchrz (strng$, char$) 
FNeountchr%Z counts the number of occurrences 
of a single character (char$) in a string (strng$). 
STATIC count, start, found 
count = 0 
Start = ] 
DO WHILE start «» LEN(strng$) 
found = INSTR(start, strng$, char$) 
IF found = 0 THEN 
EXIT DO 
ELSE 
count a count + 1 
start = found + 1 
END IF 
LOOP 
FNeountchr% = count 
END DEF 


REM ** Main Program ** 

CLS 

DO 
INPUT "String, please’; teststring$ 
INPUT “Character, please”; testchar$ 
occurs = FNcountchr£(teststring$, testchar$) 
PRINT “The character occurs"; occurs; "times in the string.’ 
PRINT 
PRINT “Press ESC key to end, a different key to continue" 
ky$ = INPUT$(1): IF ky$ = CHR$(27) THEN EXIT DO 

LOOP 


END 


Program 3-9. COUNT CHARACTERS IN A STRING 


Bullding a Toolkit 101 


String, please? This string has four spaces. 
Character, please? " * 
The character occurs 4 times in the string. 


Press ESC to end, a different key to continue 
String, please? "This string has five spaces. 
Character, please? " ” 

The character occurs 5 times in the string. 


Press ESC to end, a different key to continue 
String, please? "110010100010100100011110* 
Character, please? “1" 

The character occurs 11 times in the string. 


Press ESC to end, a different key to continue 
String, please? "110010100010100100011110* 
Character, please? “11” 

The character occurs 4 times in the string. 


Press ESC to end, a different key to continue 


Figure 3-10. Output of Program 3-9 


Review 


This chapter introduced the idea of building a kit of programming 
tools, saving them to disk, and merging them with programs later. 

QuickBASIC variables were discussed, both as local to a partic- 
ular unit of a program and as global to the whole program. Data 
types were explained. QuickBASIC program lines and line labels 
were discussed and demonstrated. 

A discussion of built-in QuickBASIC functions led to user- 
defined functions. A variety of single-line function definitions were 
demonstrated. The powerful multiline function definition was dis- 
cussed in detail and used in program demonstrations. 

New QuickBASIC control structures — Block IF...THEN... 
ELSE, SELECT CASE, and DO. . .ГООР – were introduced and 
demonstrated. 


4 Editing 


In Chapters 1, 2, and 3, editing was limited to the cursor-control 
(arrow), BACKSPACE, and DEL keys. You worked from the abbreviated 
menus, called Easy menus. In this chapter and the rest of the book, 
you will learn to use the Full menu system. This chapter also 
discusses more sophisticated editing methods and offers practice in 
their use. 

You will learn to move the cursor and scroll the screen in small 
and large steps. You will practice inserting and deleting text in 
small amounts. The use of the Edit menu commands from Full 
menus, used to manipulate large amounts of text, is discussed. In 
addition, you will practice how to use the Cut, Undo, Paste, Merge, 
and Copy commands. 

QuickBASIC automatically performs some editing functions, 
including 


m Converting QuickBASIC keywords to uppercase letters if they 
have been entered in lowercase 


m Inserting blank spaces before and after all operators if they are 
not present 
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W Checking for syntax, memory, and duplicate-definition errors 


W Performing minor modifications, such as inserting spaces, so 
that QuickBASIC source code appears in a standard format 


The Full Menu System 


The Full menu system is accessed by opening the Options menu, 
moving the highlight down to the Full menu item, and pressing 
ENTER. You are then returned to the View window and the Quick- 
BASIC editor. 

Your first project with the Full menu system is to enter a new 
program. Access the File menu, which now contains a larger list of 
items than it did with Easy menus. Table 4-1 lists the menu items 
for both types of menu. 

Notice that all the File menu items in the Easy menus also 
appear on the Full menu list. However, many new items are added 


Flle menu for Easy menus File menu for Full menus 
New Program New Program 
Open Program Open Program 
Save As Merge 
Save 
Print Save As 
Save All 
Exit 
Create a File 
Load a File 
Unload a File 
Print 
DOS Shell 
Exit 


Table 4-1. File Menus for Easy and Full Menu Systems 
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for Full menus. All the new items are discussed in the Microsoft 
manual Learning to Use Microsoft QuickBASIC; those used in this 
book will be discussed when they are used. 

To enter a new program, move the highlight to New Program 
(if it is not already there) and press ENTER. You have used this 
command previously; it gives you a nice, blank View window in 
which to enter Program 4-1, USING QuickBASIC PROGRAM 
FILE NAMES. Enter the program just as it is, even if you notice a 
few typing errors. 

This program consists only of REM statements; it has no exe- 
cutable statements. It is named UQB0001.BAS so that it will always 
appear at the beginning of the list of programs displayed in the 
Open Program Files box. As you write more programs, this REM 
program will become increasingly useful. When you want to review 
or use a program, you can use UQB0001.BAS to determine the 
correct program to load. Use it now to try out the editing tech- 
niques that follow. 


REM ** USING QuickBASIC PROGRAM FILE NAMES ** 

' REM program - contains program filed names, descriptions 
' Using QuickBASIC, Chapter 4 

' Micosoft QuickBASIC 4.5 File: UQB0001.BAS 


REM ** Chapter 1, A Review of BASIC ** 
' UQBO106.BAS Wordsworth with Graphics 


REM «* Chapter 2, Overview of QuickBASIC ** 
' UQBO201.BAS Coin Flipper 


REM ** Chapter 3, Building a Toolkit ** 

' UQBO301.BAS Dollars and Cents 

' UQB0302.BAS Minimum and Maximum 

' UQB0303.BAS Leap Year or Common Year 

' UQB0O304.BAS Wordmaker Number 1 

' UQBO305.BAS String Squeezer Test Program 

' UQB0306.BAS Wordmaker Number 2 

' UQB0307.BAS Number of Days in a Month 

' UQB0308.BAS Number of Days in a Month, String Version 


Program 4-1. USING QuickBASIC PROGRAM FILE NAMES 
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Moving Around in a File 


While you are in the View window, you can enter new text, move 
the cursor around in a file, and insert, replace, or delete text. Each 
editing task involves three steps: 


1. Move the cursor to the desired location. 
2. Select the text to be modified. 
3. Insert, replace, or delete text. 
Table 4-2 describes various ways of moving the cursor through 


a screen — from top to bottom, from line to line, from word to word, 
and from character to character. It also describes ways to scroll the 


screen. 


Cursor movement 


Keys to press 


To beginning of file CTRL + HOME 

'To end of file CTRL+END 

Up one line UP ARROW 

Down one line DOWN ARROW 

To beginning of line HOME 

To end of line END 

Left one word CTRL+LEFT ARROW 
Right one word CTRL+RIGHT ARROW 
Left one character LEFT ARROW 
Right one character RIGHT ARROW 


Scrolling Keys to press 
Left one window CTRL+PGUP 

Right one window CTRL+PGDN 

Up one window PGUP 

Down one window PGDN 

Up one line CTRL + DOWN ARROW 
Down one line CTRI.+ UP ARROW 


Table 4-2. Cursor Movement and Scrolling 
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Some cursor movements require holding down one key and 
pressing another. In this book, a combined keystroke is indicated 
by a plus sign between two keys. For example, CTRL+END means hold 
down the CTRL key and press the END key. 

Save the program as UQB0001.BAS. You will use it to practice 
moving the cursor and editing text. You will begin by making small 
changes and then progress to deleting, copying, and inserting 
blocks of text. Near the end of the chapter, you will learn how to 
merge one file with another. 


Moving to the Start 
or End of a File 


As you entered Program 4-1, you probably noticed that the first 
lines of the program scrolled off the top of the screen. After you 
entered the last line, the cursor was blinking at the bottom of the 
program. 


' Micosoft QuickBASIC 4.5 File: UQB0001.BAS 


REM ** Chapter l, A Review of BASIC жч 


' UQBO307.BAS Number of Days in a Month 
' UQBO308.BAS Number of Days іп a Month, String Version 


N cursor 


Press CTRL+HOME. The cursor moves to the upper left corner, under 
the R in the first REM statement; in other words, it moves to the 
beginning of the file. 


REM ** USING QuickBASIC PROGRAM FILE NAMES ** 


cursor 


' UQBO305.BAS String Squeezer Test Program 
' UQB0306.BAS Wordmaker Number 2 
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To move the cursor to the end of the file, press CTRL+END. The 
screen now shows the end of the program, with the cursor posi- 
tioned below the last line of the program. 


> REMEMBER CTRL+END moves the cursor to the end of a file. 


CTRL* HOME moves the cursor to the beginning of a file. 


Moving Up or Down 
One Line 


If you have not already done so, press CTRL+HOME to move the cursor 
to the beginning of the file. The cursor is at the top line, under the 
R of the opening REM statement. Press the DOWN ARROW key. The 
cursor moves down one line, remaining in the same column. 


REM жж USING QuickBASIC PROGRAM FILE NAMES яж 
! REM program - contains program filed names, descriptions -° 


e 


cursor 


Press the DOWN ARROW key a few more times. The cursor moves down 
one line for each keystroke. Press the UP ARROW key. The cursor 
moves up one line. Press the UP ARROW key several more times until 
the cursor is back at the beginning of the file. 


P» REMEMBER The DOWN ARROW key moves the cursor down one line. 


The UP ARROW key moves the cursor up one line. 


Moving to the 
Beginning or End 
of a Line 


Move the cursor to the beginning of the third line on the screen. 
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! Using QuickBASIC, Chapter 4 


Then press the END key. The cursor moves to the column just to the 
right of the end of the line. 


' Using QuickBASIC, Chapter 4. 


Press the HOME key to move the cursor back to the beginning of the 
line. 


P» REMEMBER The END key moves the cursor to the end of a line. 
The HOME key moves the cursor to the beginning of a line. 


Moving Left or Right 
One Word 


Move the cursor from the beginning of the third line to the be- 
ginning of the second line by pressing the UP ARROW key. 


` REM program - contains program filed names, descriptions 


Press CTRL*RIGHT ARROW. The cursor moves one word to the right. 
Press CTRL+RIGHT ARROW until the cursor is at the misspelled word 
filed. 


' REM program - contains program filed names, descriptions 


Use the RIGHT ARROW key to move the cursor to the letter d of the 
word, and press DEL to remove the letter. This corrects one mistake 
in the original program. 

Press CTRL+LEFT ARROW. The cursor moves one word to the left. 
Using this key combination, move the cursor back to the first letter 
of the second line. 


p» REMEMBER  CTRL«RIGHT ARROW moves the cursor one word to the 
right. CTRL+LEFT ARROW moves the cursor one word to the left. 


110 


Using QuickBASIC 


What happens if the cursor is already at the first word of the 
second line when you press CTRL-« LEFT ARROW? Does the cursor move 
to the apostrophe (') at the beginning of the line? Does the cursor 
move to the first line? Does it disappear off the left edge of the 
screen? Does nothing happen at all because it can't move any 
farther to the left on the line? Try it and find out. (The cursor 
moves to the last word of the first line. Notice that the apostrophe 
and the asterisks were not considered words.) 


Moving Left or Right 
One Character 


Now that you have learned how to move around in your file by 
giant strides or inchworm creeps, move the cursor to the beginning 
of the fourth line, where the name Microsoft is misspelled. Then 
press the RIGHT ARROW key once. The cursor moves one character 
position to the right each time you press this key. Press the RIGHT 
ARROW key until the cursor is under the first o in Micosoft. 


' Micosoft QuickBASIC 4.5 File: UQB0001.BAS 


Type r. The letter is inserted at the cursor position, and all char- 
acters to the right of the cursor are pushed to the right. You have 
now corrected the second mistake in the original program. 

The cursor moves one character to the left each time you press 
the LEFT ARROW key. Use the LEFT ARROW key to move the cursor back 
to the beginning of the fourth line. 


P» REMEMBER The RIGHT ARROW key moves the cursor one character 


to the right. The LEFT ARROW key moves the cursor one character to 
the left. 


QuickBASIC’s physical line is 255 characters long. Can you 
predict what will happen if you press the RIGHT ARROW key when the 
cursor is at the end of a line? What happens when it is at the 
beginning ofa line and you press the LEFT ARROW key? Try both. (The 
cursor will not move past the end of the physical line.) 
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If you followed all these directions, you can now move the 
cursor anywhere in a file. Move the cursor through the file to see 
if there are any more mistakes. If you find any, correct them. 


Scrolling Up or Down 
One Window 


Scrolling means rolling the lines in the window up or down as if you 
were rolling or unrolling a scroll. Place the cursor below the first n 
in the word contains in the second line of Program 4-1. 


' REM program - contains program file names, descriptions 


cursor 


Press PGDN. The screen scrolls to the second window ofthe program. 
The cursor is now in the second line of the second window of the 
program. The cursor is in the same relative position (second line, 
nineteenth. column); only the window being displayed has 
changed. 


' UQBO308.BAS Number of Days in a Month, String Version 


-—4À 


Now press PGUP. The display scrolls back to the first window of the 
program. 


P» REMEMBER рсрм scrolls the display down one window. PGUP 
scrolls the display up one window. 
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Scrolling Up or Down 
One Line 


Move the cursor down to the letter 4 ofthe word QuickBASIC in the 
fourth line of the program. Then press CTRL« DOWN ARROW. The cursor 
stays where it was (under the letter A), but the lines on the screen 
scroll up one line. The top line scrolls off the screen, as shown here: 


' REM program - contains program file names, descriptions 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0001.BAS 


cursor 


A new line then appears at the bottom. Now press СТКІ + ЈР ARROW. All 
lines on the screen scroll down one line. The bottom line scrolls off 
the screen, and a new line appears at the top of the screen. The 
screen is back where it was before you pressed СТКІ. + DOWN ARROW. 


P» REMEMBER  CTRL«DOWN ARROV scrolls the View window down one 


line. CTRL+UP ARROW scrolls the View window up one line. 


Scrolling Left or Right 
One Window 


You cen scroll horizontally as well as vertically. Scrolling the screen 
left or right is like rolling and unrolling a scroll sideways. With the 
cursor below the letter A in the fourth line of Program 4-1, press 
CTRL+PGDN. You are confronted by a blank window. The display has 
scrolled one window to the right. Since the lines in the program do 
not extend beyond the original window, nothing appears in this 
window. Press CTRL+PGUP. The display scrolls one window to the left. 
You are back at the original position. 
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P REMEMBER  CTRL«PGDN scrolls the display one window to the 
right. CTRL+PGUP scrolls the display one window to the left. 


You can place the cursor anywhere within the file by one or more 
cursor-movement and screen-scrolling actions. 


Inserting and Deleting Text 


The QuickBASIC editor includes two modes of operation: insert 
mode and overtype mode. The INS key acts as a toggle switch 
between the two modes. When you first enter the editor, the insert 
mode is active and the cursor appears as the underscore character 
(_), as it normally does. 

In insert mode, characters typed at the cursor position are 
inserted at that position. The character above the cursor and all 
characters to the right of the cursor are pushed one position to the 
right to make room for the new character. 

When the insert mode is active, pressing the INS key causes the 
editor to enter the overtype mode. The cursor changes to a flashing 
solid block (@). When the editor is in overtype mode, the character 
at the cursor position is replaced by the character typed. Other 
characters in the line remain intact. 


> REMEMBER The cursor is a solid block when the overtype mode 
is active and an underscore character when the insert mode is 
active. Pressing INS deactivates the current mode and activates the 
other mode. 


Table 4-3 shows ways to insert and delete a character, a line, or 
part of a line of text. It also shows how to start a new line of text at 
the current cursor position. 
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To start a new line Keys to press 

At current cursor position ENTER 

To insert Keys to press 

A line above current line CTRL+N OF HOME, CTRL+N 
A line below current line ЕМО + ENTER 

To delete Keys to press 

The entire current line CTRL+Y 

To the end of the current line CTRL+Q, Y 

The character to the left of cursor ВАСКЅРАСЕ 

The character under the cursor DEL 


Table 4-3. Inserting and Deleting Text 


Starting a New Line 


In entering previous programs, you have started new lines by 
pressing the ENTER key when an entire program line had been 
typed. The ENTER key can also be used to start a new line from any 
cursor position. 

Suppose you have typed the following line: 


' Squeezes spaces out of a string and returns the squeezed string 


To make the text more readable, you can break the line into two 
parts, with the latter part moved down to a new line. To do so, 
move the cursor to thea in the word and and press ENTER. A new line 
space opens up, and the latter part of the line moves there. The 
cursor also moves to the beginning of the new line. 


' Squeezes spaces out of a string 
and returns the squeezed string 


cursor 


Type an apostrophe (') followed by a space to make the line a 
remark rather than an executable statement. 
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Inserting Text 


You can insert text when you are in the editor's insert mode. 


1. Move the cursor to the position at which you want to start the 
insertion. 


2. Type the text to be inserted. 


This method works well when you want to make a short insertion, 
such as a few characters or a word or two. As you type in the 
insertion, all characters on the line at and to the right of the cursor 
are shifted to the right one place for each character inserted. The 
editor reformats the lines following the insertion. 

Program 4-2, STRING SQUEEZER (which is the same as Pro- 
gram 3-5, STRING SQUEEZER), will be used to demonstrate short 
insertions and later to show two ways to make longer insertions. 
You may want to format a new disk for the programs you will use 
in the rest of this chapter to practice your editing techniques. Copy 
Program 3-5 (UQB0305.BAS) to this practice disk, making sure to 
retain the original program elsewhere. 

You are going to edit Program 3-5 by taking the following steps: 


1. Change the title to STRING SQUEEZER WITH STRING VARI- 
ABLES DESCRIBED. 


2. Change the chapter number to Chapter 4 from Chapter 3. 
3. Change the filename from UQB0305.BAS TO UQB0403.BAS. 


4. Insert a block of program lines titled Variables Used. 


When you have prepared the practice disk, access Program 4-2. 
Move the cursor to the first asterisk following the word SQUEEZER 
in the top line. 


REM ** STRING SQUEEZER ** 
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Press INS to activate the insert mode of the editor if it is not already 
active. (The cursor should be the underline character.) Type 
WITH VARIABLES DESCRIBED, and press the SPACEBAR. 


REM жж STRING SQUEEZER WITH VARIABLES DESCRIBED ** 


Now, still in insert mode, move the cursor to the number 3 in the 
second line of the program. 


REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 3 


REM ** STRING SQUEEZER ** 
' Using QuickBASIC, Chapter 3 
' Microsoft QuickBASIC 4.5 File: UQB0305.BAS 


REM ** Define Variables, then DEF FN ** 
DEFINT A-Z 
DEF FNsqueeze$ (strng$) 
' Squeezes spaces out of a string 
and returns the squeezed string 
STATIC squeeze$, k, char$ 
squeeze$ = ^" 
FOR k = 1 TO LEN(strng$) 
char$ = MID$(strng$, К, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNsqueeze$ = squeeze$ 
END DEF 


, 


REM ** Main Program, Test FNsqueeze$ жж 
CLS 
DO 
INPUT "String, please"; teststring$ 
PRINT FNsqueeze$(teststring$) 
PRINT 
PRINT “Press ESC key to end, a different key to continue" 
ky$ = INPUTS$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 4-2. STRING SQUEEZER 
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REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 43 


Press the DEL key to remove the number 3. The chapter number is 
now changed to 4. Next, move the cursor to the 3 in the filename 
in the third line of the program. 


REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0305.BAS 


Type 403. The screen shows 


REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0403305.BAS 


Press the DEL key three times to delete the old program numbers 
305. The filename is now UBQ0403.BAS. 

The program is now ready to be modified by a longer insertion; 
leave it in memory. If you have long insertions (such as several 
lines, a paragraph, or more), it is practical to use the insertion 
methods shown in Table 4-3. 

To insert a line above another line, press the INS key to activate 
the insert mode of the editor (if it is not already active). Move the 
cursor to the beginning of the line that is to follow your insertion, 
and press CTRL+N. This opens up a blank line where the cursor is 
and pushes the other lines down. You can then type the insertion 
in the blank line. 

For example, suppose you decide to add a section that describes 
the variables used in the program and that you wish to place it 
between the Define Variables, then DEF FN block and the Main 
Program, Test FNsqueeze$ block. Move the cursor to the letter R 
at the start of the REM statement of the main program. 
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END DEF 


REM ** Main Program, Test FNsqueeze$ ** 


X 


Press CTRL+N to open a new line above the REM statement. The 
REM statement is moved down one line, and the cursor is at the 
beginning of the new blank line, ready for the insertion. 


END DEF 


a cursor 


REM ** Main Program, Test FNsqueeze$ ** 


Insert the following lines: 


REM ** Variables Used ** 


' gqueeze$ string with spaces removed 

' char$ one character of the string entered 

' teststring$ string entered for testing FNsqueeze$ 
' k character counter in FOR-NEXT loop 


You now have completed Program 4-3, STRING SQUEEZER 
WITH VARIABLES DESCRIBED. Save it to your practice disk 
(using its new filename) for later use, but also leave it in memory; 
you will use it to delete text in the next section. 
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REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0403.BAS 


REM ** Define Variables, then DEF FN ** 
DEFINT A-Z 
DEF FNsqueeze$ (strng$) 
' Squeezes spaces out of a string 
and returns the squeezed string 
STATIC squeeze$, k, char$ 
squeeze$ = °” 
FOR k = 1 TO LEN(strng$) 
char$ = MID$(strng$, k, 1) 
IF char$ <> " ” THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNsqueeze$ = squeeze$ 


END DEF 

REM ** Variables Used ** 

' Squeeze$ string with spaces removed 

' char$ one character of the string entered 

' teststring$ string entered for testing FNsqueeze$ 
' k character counter in FOR-NEXT loop 


REM ** Main Program, Test FNsqueeze$ ** 
CLS 
DO 
INPUT "String, please^; teststring$ 
PRINT FNsqueeze$(teststring$) 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUT$(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 4-3. STRING SQUEEZER WITH VARIABLES DESCRIBED 


This method used CTRL+N to open a line above the line where the 


cursor resided. You could have used another key combination 
listed in Table 4-3 to open up a blank line for inserting text. 
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Pressing END+ENTER opens a line below the line where the cursor 
resides. 


p» REMEMBER Press CTRL+N (or НОМЕ, CTRL*N) to insert a line above 
the cursor position. Press END+ENTER to insert a line below the cursor 
position. 


Deleting Text 


One way to delete individual characters is to move the cursor to the 
character to be deleted and press the DEL key. Another way is to 
move the cursor to the character that is one position to the right of 
the character to be deleted and press the BACKSPACE key. 

With Program 4-3 in memory, move the cursor to the apostro- 
phe to the left of k in the Variables Used block. 


REM ** Variables Used ** 


' squeeze$ string with spaces removed 

' char$ one character of the string entered 

' teststring$ string entered for testing Fnsqueeze$ 
Dk character counter in FOR-NEXT loop 


N 


cursor 


Press the DEL key three times. Each press of the DEL key deletes one 
character or space; all characters or spaces to the right of the cursor 
in the line shift to the left by one place. The result is 


character counter in FOR-NEXT loop 


cursor 


P REMEMBER Pressing the DEL key deletes the character at the 
cursor. 
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Move the cursor just to thé right of the letter p in the word loop. 


character counter in FOR-NEXT loop. 


p 


cursor 


Each press of the BACKSPACE key will delete the character to the left 
of the cursor. Press the BACKSPACE key until the word /oop is deleted. 
The cursor is at the space following FOR-NEXT. 


character counter in FOR-NEXT_ 


cursor 


> REMEMBER Pressing the BACKSPACE key deletes the character to 
the left of the cursor and moves the cursor left one position. 


Now move the cursor to the beginning of the line by pressing 
the HOME key. 


character counter in FOR-NEXT 


b 


cursor 


Press CTRL+Q. Notice the ^Q characters that appear at the right on 
the bottom line of the screen. 


<Shift+Fl=Help> <F6=<Window> <F2=Subs> «F5«Run» <F8=Stop> ^Q 00023:001 


Signal that cra+Q " 


has been pressed 
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Now press Y. The complete line is erased. 


P REMEMBER Pressing CTRL+Q and then Y erases everything from 
the cursor position to the end of the line. The cursor moves to the 
beginning of the line in which text was deleted. 


Move the cursor up one line. 


REM ** Variables Used ** 


' Squeeze$ string with spaces removed 

' char$ one character of the string entered 

! teststring$ String entered for testing Fnsqueeze$ 
cursor 


Press CTRL+Y. Whoosh! The whole line is erased. 


Юр REMEMBER Pressing CTRL+Y deletes the entire line on which the 
cursor is positioned. 


Using any of these methods, remove all the lines that were in the 
Variables Used block of Program 4-3. Except for the filename and 
the chapter number in the opening block, the program is once 
again identical to the program from which it was created. 


Edit Menu Commands 


Since you are now working with Full menus, study Table 4-4, which 
lists the Edit menu commands of Easy menus and Full menus. You 
can use the commands in either Edit menu to delete or insert long 
sections of text. In addition, you can merge programs with the 
Merge command when using Full menus. 
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Edit menu for Easy menus Edit menu for Full menus 
Cut Undo 
Copy Cut 
Paste Copy 
Paste 
Clear 
New SUB 


New FUNCTION 


Table 4-4. Edit Menus for Easy and Full Menu Systems 


Cut, Undo, Copy, 
and Paste 


You can delete a portion of text from one place and insert it in 
another place by combining the Cut and Paste commands from the 
Edit menu. 


Selecting Text Before deleting or inserting text using the Edit 
menu, you must first select the block of text to be edited. While in 
the editor, move the cursor to the beginning of the text to be 
edited. Then hold down the SHIFT key while using any of the cursor- 
movement keys (LEFT ARROW, RIGHT ARROW, СТКІ. + RIGHT ARROW, PGUP, and 
so on) to move the highlight to the end of the block of text. 

To demonstrate this process, load Program 4-3 again. Figure 
4-1 shows the part of the program that appears in the View win- 
dow. 

Suppose you wish to select the Variables Used block from Pro- 
gram 4-3 for editing. Move the cursor to the R of the REM state- 
ment at the beginning of the block. 


REM ** Variables Used ** 
' squeeze$ string with spaces removed 
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REM ** STRING SQUEEZER WITH VARIABLES DESCRIBED ** 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0403.BAS 


REM ** Define Variables, then DEF FN ** 
DEFINT A-Z 
DEF FNsqueeze$ (strng$) 
' Squeezes spaces out of a string 
and returns the squeezed string 
STATIC squeeze$, k, char$ 
squeezes = °” 
FOR k = 1 TO LEN(strng$) 
char$ = MID$(strng$, k, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNsqueeze$ = squeeze$ 
END DEF 


Figure 4-1. Portion of Program 4-3 showing in window 


Press SHIFT* DOWN ARROW. The REM statement is displayed in reverse 
video, showing that it has been selected, and the cursor moves 
down one line. Press SHIFT * DOWN ARROW again. The second line of the 
block is also displayed in reverse video, and the cursor has moved 
to the third line. 


REM ** Variables Used ** 
' squeeze$ string with spaces removed 


z char$ one character of the string entered 


D 


cursor 


Press SHIFT- DOWN ARROW three more times. You have now selected 
five lines, the complete Variables Used block. 
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REM ** Variables Used ** 
squeeze$ string with spaces removed 
' char$ one character of the stríng entered 


$ 


teststring$ String entered for testing FNsqueeze$ 
' k character counter in FOR-NEXT loop 


. cursor 


Leave this block highlighted. 


Using the Cut Command To delete the text just selected, you 
must move from the editor to the Edit menu. Press ALT+E to do so. 
Use the DOWN ARROW key to move the highlight to the Cut command, 
as shown in Figure 4-2. 

Press ENTER to carry out the Cut command, and the Variables 
Used block is deleted. Even though the block is deleted from the 
program, it is still within reach: it has been saved in an area of 
memory called the Clipboard and can be recovered, as you will see 
later. 

If you are sure you want to delete a block of text, you may select 
the block of text and simply press the DEL key. However, there is no 


Undo Alt+Backspace 


Shift+Del 


Ctrl*Ins 


Shift+Ins 
Del 


New SUB. . . 
New FUNCTION. . . 


Figure 4-2. Cut command of Edit menu highlighted 
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way to recover text when you delete it in this way. Another way to 
delete text is to activate the Clear command from the Edit menu. 
Text deleted by the Clear command also is unrecoverable. 

After the deletion of the Variables Used block, the program is 
again identical to Program 4-2, except for the opening block. It is 
unnecessary to save the result, since you already have Program 4-2 
on disk. 


Using the Undo Command The Undo command is not on the 
Easy menus Edit menu but is available from Full Menus, as shown 
in Table 4-4. The Undo command is disabled until the current line 
is modified. Undo restores the current line to its original state, 
providing the cursor is still on that line; Undo has no effect once 
the cursor is moved from the modified line. 

Load Program 4-3 to see how the Undo command works. Sup- 
pose you decide to remove the word Used from the REM line of the 
Variables Used block. Select the word by positioning the cursor 
under the U and pressing SHIFT* RIGHT ARROW until each letter of the 
word is highlighted. 


REM ** Variablee[Used] ** 


Press ALT+E to access the Edit menu. Delete the word Used by 
moving the highlight to the Cut command and pressing ENTER. 


REM ** Variables  *x* 


Since you have modified the current line and the cursor is still on 
the line, you can restore the line to its original condition by select- 
ing the Undo command from the Edit menu and pressing ENTER. 


REM ** Variables Used ** 


The cursor moves to the beginning of the restored line. 
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Cutting and Pasting When you delete text with the Cut com- 
mand, the deleted text is placed in the Clipboard. You still have 
access to it. Furthermore, you can insert the deleted text anywhere 
in the file that is in memory. The Paste command inserts text from 
the Clipboard at the cursor position. The Cut and Paste commands 
are used together to move a block of text from one place to another 
in a program. 

Suppose you wish to exchange the order of the Variables Used 
and the Define Variables, then DEF FN blocks. You can move 
either block. For this example, select the Variables Used block from 
the editor using SHIFT* DOWN ARROW. Include the blank line following 
the block. 


REM ** Variables Used ** 
' squeeze$ string with spaces removed 
' char$ one character of the string entered 


' teststring$ string entered for testing FNsqueeze$ 
'k character counter in FOR-NEXT loop 


REM ** Main Program, Test FNsqueeze$ ** 


cursor 


Go to the Edit menu and use the Cut command to delete the block 
and place it in the Clipboard. From the editor, move the cursor to 
the R that begins the REM statement of the Define Variables, then 
DEF FN block. 


REM ** Define Variables, then DEF FN ** 


Access the Edit menu again, and move the highlight to the Paste 
command, as shown in Figure 4-3. Press ENTER, and the Variables 
Used block is inserted at its new position. 
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' Microsoft QuickBASIC 4.5 File: UQB0401.BAS 


REM ** Variables Used ** 


' squeeze$ string with spaces removed 

' char$ one character of the string entered 

' teststring$ String entered for testing FNsqueeze$ 
'k Character counter in FOR-NEXT loop 


REM ** Define Variables, then DEF FN *x 


Using the Copy Command When itis active, the Copy command 
makes a copy ofthe selected text and places it in the Clipboard. The 
text is left in its original place in the file. 

As before, select the text and press ALT+E to move to the Edit 
menu. Position the highlight on the Copy command and press 
ENTER. This places a copy of the selected text in the Clipboard; the 
original text remains in place in the file. 


Undo Alt+Backspace 
Cut Shift+Del 
Copy Ctrl+Ins 


Paste Shift+Ins 


Clear Del 


New SUB. .. 
New FUNCTION. 


Figure 4-3. Paste command of Edit menu highlighted 
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Editor Clipboard 


Copied text 


Reload Program 4-3. Suppose you decide to move the Variables 
Used block from Program 4-3 to Program 4-2. Copy the block to 
the Clipboard with the following steps: 


1. Select the complete Variables Used block from the editor by 
moving the cursor to the R of the REM statement at the beginning 
of the block and pressing SHIFT + DOWN ARROW six times to highlight all 
the lines of the block and the blank line that follows it. 


2. Access the Edit menu. 


3. Use the Copy command to copy the block to the Clipboard. 


Next, access the File menu and load Program 4-2. Even though a 
new program has been loaded, the text that was copied from 
Program 4-3 is still in the Clipboard. 

Move the cursor to the R at the beginning of the Main Program 
REM statement. Access the Edit menu and select the Paste com- 
mand. Press ENTER, and the text from the Clipboard is inserted at 
the cursor. 


END DEF 
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REM ** Variables Used ** 


' squeeze$ String with spaces removed 

' char$ one character of the string entered 

' teststring$ String entered for testing FNsqueeze$ 
' k character counter in FOR-NEXT loop 


REM ** Main Program, Test Fnsqueeze$ ** 


The Variables Used block has been copied from Program 4-3 to 
Program 4-2. 


Using the Clear Command The Clear command works like the 
Cut command except that the selected text is not placed in the 
Clipboard; instead, it is erased and cannot be recovered. 


Using Other Edit Menu Commands The New SUB command 
allows you to add a new subprogram to your program. This com- 
mand will be discussed in detail in Chapter 5, “Power Tools: 
FUNCTION and SUB Procedures.” 

The New FUNCTION command allows you to add a new func- 
tion to your program. This command also will be discussed in detail 
in Chapter 5. 


Merge Files 


You learned about function definitions in Chapter 3, “Building a 
Toolkit.” One of the functions you were urged to save on a toolkit 
disk was ROUNDCNT.BAS, which rounded a money value to the 
nearest cent. 


REM ** Define Function Roundenté# ** 

' Double precision function to round a 

' double precision number to two places 

DEF FNroundcnts* (m9) = SGN(m*) * INT(100 * ABS(m8) + .5) / 100 
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If you did not save it earlier, enter this short function definition 
now and save it as ROUNDCNT.BAS. Once it has been saved, you 
can merge it into any other program you wish. This section de- 
scribes the process. 

First, enter the following program segment into which the func- 
tion definition will be merged: 


REM ** VALUE OF STOCKS WITH FUNCTION ** 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0404.BAS 


REM ** Enter Data & Calculate Worth ** 
CLS : worth# = 0: shares = .0001 
st$ = "SSaen, пни, нин. ue" 
DO WHILE shares <> 0 
INPUT "Number of shares "; shares 
INPUT "Price per share ^"; pps 
worth* = worth® + shares * pps 
PRINT 
LOOP 


REM ** Invoke DEF FN to print worth ** 
PRINT "Total value of stocks = ^"; 
PRINT USING st$; FNroundent#(worth#) 


END 


Next, move the cursor to the beginning of the blank line between 
the first and second blocks of the program segment. 


' Microsoft QuickBASIC 4.5 File: UQBO404.BAS 


cursor——— 
REM ** Enter Data & Calculate Worth ** 


This is where the function definition will be merged. With the 
cursor in this position, access the Full menus File menu. Move the 
highlight down to the Merge command, as shown in Figure 4-4, 
and press ENTER. À dialog box opens to allow you to enter the name 
of the file to be merged. Be sure to put the disk containing the 
function definition file into the appropriate drive so that it can be 
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New Program 
Open Program. . . 


Save 
Save As... 
Save All 


Create File. . . 
Load File. . . 
Unload File. . 


Print. . . 
DOS Shell 


Figure 4-4. Merge command of File menu highlighted 


accessed. Then type in the filename, ROUNDCNT.BAS. Press 
ENTER, and the file is merged with the program segment. 


' Microsoft QuickBASIC 4.5 File: UQB0404.BAS 

REM ** Define Function Roundcnt® ** 

' Double precision function to round a 

' double precision number to two places 

DEF FNroundent* (m4) = SGN(m#) ж INT(100 * ABS(m#) + .5 / 100 


REM ** Enter Data & Calculate Worth ** 


RIS cursor 


Press CTRL+N to insert a line to separate the new program block 
from the opening block. This completes the merge to form Pro- 
gram 4-4, VALUE OF STOCKS WITH FUNCTION. Save the 
program as UQB0404.BAS. 
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REM ** VALUE OF STOCKS WITH FUNCTION x» 
' Using QuickBASIC, Chapter 4 
' Microsoft QuickBASIC 4.5 File: UQB0404.BAS 


REM ** Define Function Roundent® ** 

' Double precision function to round a 

' double precision number to two places 

DEF FNroundent®# (m#) = SGN(m#) х INT(100 * ABS(m8) + .5) / 100 


REM жж Enter Data & Calculate Worth ** 
CLS : worth* = 0: shares = .0001 
st$ = "99000, aus, инв. ив" 
DO WHILE shares <> 0 
INPUT "Number of shares "; shares 
INPUT "Price per share ^"; pps 
worthé = worthë + shares * pps 
PRINT 
LOOP 


REM хх Invoke DEF FN to print worth яж 
PRINT “Total value of stocks = *; 
PRINT USING st$; FNroundecnt®*(worth#) 


END 


Program 4-4. VALUE OF STOCKS WITH FUNCTION 


Figure 4-5 shows the output of typical stock entries. When you 
enter zero for the number of shares and any number for price per 
share, the program ends. 


Review 


Methods of moving the cursor, scrolling the display window, and 
editing small amounts of text were discussed in this chapter and 
demonstrated with a familiar, previously used program. You 
moved the cursor by as little as one character to as much as the 
complete file. You scrolled the text in the file by as little as one line 
to as much as a complete display window. 
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Number of shares ? 200 
Price per share ? 40.25 


Number of shares ? 500 
Price per share ? 10.125 


Number of shares ? 410 
Price per share ? 12.375 


Number of shares ? 5 
Price per share ? 10.125 


Number of shares ? 0 
Price per share ? 0 


Total value of stocks = $18,236.88 


Press any key to continue 


Figure 4-5. Output of Program 4-4 


You learned that a small amount of text can be edited by 


1. Moving the cursor, scrolling the display window to locate the 
text to be edited, or a combination of both 


2. Inserting new text or deleting existing text 


Larger chunks of data were edited by choosing commands from 
the Edit menu. First the text to be edited was selected. Then a 
command (Cut, Copy, Clear, or Paste) was chosen to delete, copy, 
or insert blocks of text. The Clipboard, a temporary storage area, 
was used to hold blocks of data to be inserted in a new location of 
the file. 

You learned how to manipulate text within a file in many 
different ways. You also learned how to move a block of text from 
one file to another. In the closing section of the chapter, you 
learned how to merge a complete file into another file. 


Power Tools: 
FUNCTION and 
SUB Procedures 


This chapter introduces procedures that are a part of a Quick- 
BASIC program but are external to the main program. A procedure 
can be either a function defined by a FUNCTION. . .END FUNC- 
TION statement pair or a subprogram defined by a SUB. . .END 
SUB statement pair. 

A QuickBASIC program consists of one or more main modules. 
A module is equivalent to a source file. Every QuickBASIC pro- 
gram has a main module. The main module contains the pro- 
gram's entry point—the place at which the execution of the 
program begins. 

The QuickBASIC editor is more than a text editor. It is also 
designed to edit and manage multiple-module programming. 
Modules can contain lower levels of code organized into proce- 
dures, such as those defined by FUNCTION. . .END FUNCTION 
and SUB. . .END SUB. QuickBASIC organizes these lower levels of 
code alphabetically and keeps them separate from the rest of the 
program. 
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You must be using the Full menus system (described in Chapter 
4, "Editing") to enter a new FUNCTION or SUB procedure. They 
are entered from the Edit menu, after which they are accessible 
from the View menu. 


FUNCTION Procedures 


A FUNCTION...END FUNCTION procedure is similar to a 
DEF FN. ..END DEF function. However, a FUNCTION has a 
number of advantages over the older style DEF FN function- 
definition structure. Major benefits of programming with FUNC- 
TION. . .END FUNCTION are as follows: 


W You can break your programs into discrete logical units. Each 
unit can be tested and corrected more easily than an entire pro- 
gram that does not use such procedures. 


ш Once a FUNCTION has been debugged (tested and corrected), 
it can be used as a building block in programs other than the one 
in which it was created. 


W Programs that use procedures are generally more reliable than 
those that do not, because a procedure has one— and only one— 
entry point and because any variables declared inside them are, by 
default, local to that particular procedure. 


ш Complete arrays may be passed to a FUNCTION procedure. 


QuickBASIC stores FUNCTION procedures separately from 
the main program. They may be accessed from the View menu for 
scanning and editing. A FUNCTION. . .END FUNCTION can be 
put in your own Quick Library (discussed in Chapter 12), where it 
can be called as needed by any program. 

In Chapter 3, "Building a Toolkit," you used the multiline DEF 
FN. 


DEF FNsqueeze$ (strng$) 
STATIC squeeze$, k, char$ 
FOR k = 1 to LEN(strng$) 
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char$ = MID$(strng$, К, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
FNsqueeze$ » squeeze$ 
END DEF 


This function definition was used to squeeze spaces out of a string. 
In order to keep the variables squeezef, k, and charf local to the 
function, the STATIC statement was necessary. The same function 
definition can be written as a FUNCTION procedure. 


FUNCTION Squeezer$ (strng$) 
Squeeze$ = '" 
FOR k » 1 to LEN(strng$) 
char$ = MID$(strng$, k, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
Squeezer$ = squeeze$ 
END FUNCTION 


Variables in a FUNCTION procedure are automatically local to 
the procedure in which they are used. Therefore, the STATIC 
statement is not necessary. 

The FUNCTION statement marks the beginning of the FUNC- 
TION procedure. It includes the function’s name, which is any 
valid variable name up to 40 characters. The same procedure name 
cannot be used for both a subprogram (SUB) and a FUNCTION. 
Also included in the FUNCTION statement is a list of variables 
separated by commas (called a parameter list). This list shows the 
number and type of arguments to be passed to the FUNCTION. 

The string, with all spaces removed, is passed back to the main 
program by the variable, Squeezerf. 

END FUNCTION marks the end of the FUNCTION and 
causes an exit from the FUNCTION. A return is made to the 
statement immediately following the statement that called the 
FUNCTION. One or more EXIT FUNCTION statements may be 
placed within the body of the definition as an alternate way to exit 
from the FUNCTION. 

You call a FUNCTION the same way you call QuickBASIC's 
built-in functions (such as INT and ABS): You use its name in an 
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expression. The following built-in function prints each character of 
teststring$ in uppercase: 


PRINT UCASES (teststring$) 


The following defined function prints the value of teststring$ after 
all spaces have been removed by the FUNCTION Squeezer$: 


PRINT Squeezer$(teststring$) 


The first program in this chapter is similar to the STRING 
SQUEEZER program in Chapter 3, "Building a Toolkit." How- 
ever, this program uses the FUNCTION procedure instead of the 
multiline DEF FN. In addition, an alternate exit from the 
DO. . .LOOP is used when you press the ESC key. The main pro- 
gram segment is 


REM ** STRING SQUEEZER WITH FUNCTION ** 
' Using QuickBASIC, Chapter 5 
' Microsoft QuickBASIC 4.5 File: UQB0501.BAS 


Main Program 

' Get the test string, call the FUNCTION 

' Print the squeezed string 

' Press ESC at prompt to end, a different key to continue 
CLS : DEFINT A-Z 


DO 
LINE INPUT “String, please: "; teststring$ А 
PRINT Squeezer$(teststring$) 'CALL FUNCTION & print 
PRINT 


PRINT "Press ESC to end, a different key to continue" 
PRINT : ky$ = INPUTS$(1) 
IF ky$ = CHR$(27) THEN EXIT DO 

LOOP 


END 
Enter this segment, and save it as UQB0501.BAS. 
The FUNCTION to be added is named Squeezer$. The func- 


tion is called, along with its argument (teststring$), in a PRINT 
statement in the DO. . .LOOP of the program's main module. 


PRINT Squeezer$(teststring$) 
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The function does not appear as part of the main module shown 
but is entered after the main program segment has been entered 
and saved. 

After the program segment has been saved, access the Edit 
menu and move the highlight down to the New FUNCTION 
command, as shown in Figure 5-1. Press the ENTER key. A dialog 
box, shown in Figure 5-2, is displayed. 

Type in the name of the new FUNCTION: Squeezer$. A new 
screen is displayed, with the beginning and ending of the FUNC- 
TION provided for you. 


FUNCTION SqueezerS_ 
END FUNCTION 


Note that the cursor is just to the right of the name of the FUNC- 
TION. This allows you easily to add the argument that is being 
passed (strng$) to the name of the FUNCTION. 


[ИИИ Vieu Search Run Debug Calls Options 


Undo  fülttBackspace 
Shift+Del 
Съг1+1пѕ ШАНИ 
Paste Shift*Ins 
Clear Del 
> FUNCTION 


LINE INPUT "String, please "; leststring$ 
PRINT Squeezer$(teststrings) Call TUNCTION & print 
PRINT 


—-— — I{nnediate 


Ё TO | 


p | Opens а vindou for a neu FUNCTION procedure 
Figure 5-1. Edit Menu - New FUNCTION selected 
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| File Ш View Search Run Debug Calls Opt ions 
: UQBBS81. BAS 

НЕМ 3x STRING SQUEEZER WITH FUNCTION xx 

› Using QuickBASIC, Chapter 5 

1? Micrasoft QuickRASIC 4.5 Tile: UQNASAT. nas 


Neu FUNCTION 


Borg <Cancel > < Help > 


d ХАЕТ АЕА ААЬАН ы 


Inned late ————- 


Enter-Execute — Esc-Cancel Tab=Next Field  firrov-hext [ten 
Figure 5-2. New FUNCTION dialog box 


FUNCTION Squeezer$ (strng$)_ 


Press ENTER, and type in the balance of the FUNCTION definition, 
as shown below. Each time you press ENTER, a new blank line opens, 
ready for the next statement. 


FUNCTION Squeezer$ (strng$) 
' Squeezes spaces from a string 
' that is entered in the main program 
squeeze$ = "" 
FOR k = 1 to LEN(strng$) 
char$ = MIDS(strng$, k, 1) 
IF char$ <> " " THEN squeeze$ = squeeze$ + char$ 
NEXT k 
Squeezer$ = squeeze$ 'assign return value 
END FUNCTION 


When you have finished entering the FUNCTION, access the 
File menu and move the highlight down to the Save command. 
When you press ENTER with the Save command highlighted, both 
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the main program and the FUNCTION are saved together 
as UQBO50I.BAS. This completes Program 5-1, STRING 
SQUEEZER WITH FUNCTION. 

Access the main program again from the View menu. Notice 
that QuickBASIC has added the following line to the beginning of 
the program: 


DECLARE FUNCTION Squeezer$ (strng$) 


The DECLARE statement is necessary for your program to call 
procedures that are defined later in the module, such as FUNC- 
TION. ..END FUNCTION or SUB. ..END SUB, or procedures 


DECLARE FUNCTION Squeezer$ (strng$) 

REM ** STRING SQUEEZER WITH FUNCTION ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0501.BAS 


REM ** Main Program ** 

' Get the test string, call the FUNCTION 

' Print the squeezed string 

' Press ESC at prompt to end, a different key to continue 
CLS : DEFINT A-Z 


DO 
LINE INPUT “String, please: “; teststring$ 
PRINT Squeezer$(teststring$) 'Call FUNCTION & print 
PRINT 


PRINT "Press ESC to end, a different key to continue" 
PRINT : ky$ = INPUTS(1) 
IF ky$ = CHR$(27) THEN EXIT DO 

LOOP 


END 


FUNCTION Squeezer$ (strng$) 
' Squeezes spaces from a string 
' that is entered in the main program 
Squeeze$ = ** 
FOR k = 1 TO LEN(strng$) 
char$ = MIDS$(strng$, k, 1) 
IF char$ <> " * THEN squeeze$ = squeeze$ + char$ 
NEXT k 
Squeezer$ = squeeze$ ‘assign return value 
END FUNCTION 


Program 5-1. STRING SQUEEZER WITH FUNCTION 
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that are defined in another module altogether. The DECLARE 
statement remains as part of the main program. 

Run Program 5-1 to assure yourself that it works in the same 
way as the program that used the DEF FN in Chapter 3. Figure 5-3 
shows a typical output of Program 5-1. 


SUB Procedures 


If you have used earlier versions of BASIC, you will notice simi- 
larities between a QuickBASIC subprogram (SUB. ..END SUB) 
and the subroutine, which is used in earlier BASICs and may also 
be used in QuickBASIC. The subroutine (called by a GOSUB 
statement) contains only global variables. The subprogram struc- 
ture of QuickBASIC allows the use of both global and local vari- 
ables. The SUB procedure also has other advantages, which you 
will discover as you become more familiar with its use. 

You will also see similarities between SUB and FUNCTION 
procedures. For example, SUB. . .END SUB has a syntax similar to 


String, please: Remove all spaces from this string. 
Removeallspacesfromthisstring. 


Press ESC to end, a different key to continue 


String, please: 800 999 9999 
8009999999 


Press ESC to end, a different key to continue 


String, please: 3005 Maryana Drive, #5 
3005MaryanaDrive, #5 
String, please: 


cursor 


Figure 5-3. Output of Program 5-1 
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that of FUNCTION. . .END FUNCTION. The Squeezer$ FUNC- 
TION used in Program 5-1 can be written as a SUB procedure, as 
follows: 


SUB Squeezer (strng$, squeeze$) 
' Squeezes spaces from a string 
' that is entered in the main program 
squeeze$ = "" 
FOR k = 1 to LEN(strng$) 
char$ = MID$(strng$, К, 1) 
IF char$ <> " " THEN squeeze$ = здцее2е$ + char$ 
NEXT k 
END SUB 


The SUB statement marks the beginning of the SUB proce- 
dure. It includes the subprogram's name (Squeezer$) and a list of 
the variables being passed between the main program and the 
subprogram. In this case, the list includes the variable string$ 
(passed from the main program to the subprogram) and the vari- 
able squeeze$ (passed from the subprogram back to the main pro- 
gram). More variables could be exchanged. 

The same procedure name cannot be used for both a SUB and 
a FUNCTION. In addition, SUB and FUNCTION names must be 
different from those of any variables used. 

END SUB marks the end of the SUB procedure and causes an 
exit from the SUB. A return is made to the statement immediately 
following the statement that called the SUB. One or more EXIT 
SUB statements may be placed within the body of the definition as 
an alternate way of exiting from the SUB. 

A defined subprogram is called in a different way than a defined 
function procedure. There are two ways to call a SUB: 


W Put its name in a CALL statement. For example: 
CALL Squeezer(teststrirg$, squeeze$) 
W Use its name as a statement by itself, as in 


Squeezer teststring$, squeeze$ 
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where Squeezer is the subprogram's name, and ¢eststring$ and 
squeeze are the arguments passed between the main program and 
the subprogram. 


If the CALL keyword is used, parentheses must be placed 
around the arguments being passed. If CALL is omitted, do not 
put parentheses around the arguments. In the rest of this book, all 
calls to subprograms will use a CALL statement to indicate clearly 
that a subprogram is being used. 

The next program has a main module that illustrates the use of 
a subprogram in place of FUNCTION. . .END FUNCTION. 


REM ** STRING SQUEEZER WITH SUBPROGRAM ** 
' Using QuickBASIC, Chapter 5 
' Microsoft QuickBASIC 4.5 File: UQB0502.BAS 


Main Program 
' Get the test string, call the SUB 
' Print the squeezed string 
' Press ESC at prompt to end, a different key to continue 
CLS : DEFINT A-Z 
DO 
LINE INPUT "String, please: "; teststring$ 
CALL Squeezer(teststring$, squeeze$) 
PRINT squeeze$: PRINT 
PRINT "Press ESC to end, a different key to continue" 
PRINT : ky$ = INPUTS(1) 
IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Notice the difference in the way the subprogram is called and 
the way FUNCTION is called in Program 5-1. First comes the 
CALL keyword, then the subprogram's name, and then the argu- 
ment to be passed to the subprogram (teststringf$) and the argument 
to be passed back by the subprogram (squeeze$). The argument to 
be passed back is then printed by a separate statement. Notice that 
you do not use data-type declaration symbols (such as $) in the 
subprogram's name. 

Enter the main module of the new program and save it as 
UQB0502.BAS in text format. Then access the Edit menu, as you 
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did for Program 5-1. This time, move the highlight down to the 
New SUB command, and press ENTER. A dialog box will appear, 
requesting the name of the subprogram. Type the name Squeezer. 


Name: Squeezer 


Press ENTER, and the beginning and ending of the subprogram 
appear. Finish typing the first line of the program as follows: 


SUB Squeezer (strng$, squeeze$) 


Now type in the balance of the subprogram as follows: 


SUB Squeezer (strng$, squeeze$) 
' Squeezes spaces from a string 
that is entered in the main program 
squeeze$ = *" 
FOR k = 1 to LEN(strng$) 
char$ = MID$(strng$, k, 1) 
IF char$ <> " “ THEN squeeze$ = squeeze$ + char$ 
NEXT k 
END SUB 


When you have finished entering the subprogram, access the 
File menu, move the highlight to Save, and press ENTER. This com- 
pletes Program 5-2, STRING SQUEEZER WITH SUBPROGRAM. 

Access the main program of PRO5-2.BAS. Notice that a DE- 
CLARE statement has been added as the beginning line. If you are 
using the QuickBASIC editor to write your programs, the DE- 
CLARE statement will automatically be supplied for procedures. If 
you are not using the QuickBASIC editor to write your programs 
and you do not use the CALL statement to call a subprogram that 
is used, you must supply your own DECLARE statement. This is 
another good reason to include the CALL keyword to call a sub- 
program. 

Run Program 5-2 a few times to assure yourself that it works like 
Program 5-1. The output should be similar to that in Figure 5-3. 
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DECLARE SUB Squeezer (strng$, squeeze$) 

REM ** STRING SQUEEZER WITH SUBPROGRAM ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0502.BAS 


REM ** Main Program ** 
' Get the test string, call the SUB 
' Print the squeezed string 
' Press ESC at prompt to end, a different key to continue 
CLS : DEFINT A-Z 
DO 
LINE INPUT "String, please: "; teststring$ 
CALL Squeezer(teststring$, squeeze$) 
PRINT squeeze$: PRINT 
PRINT "Press ESC to end, a different key to continue" 
PRINT : ky$ = INPUTS(1) 
IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


SUB Squeezer (strng$, squeeze$) 
' Squeezes spaces from a string 
' that is entered in the main program 
squeeze$ = ** 
FOR k = 1 TO LEN(strng$) 
char$ = MIDS$(strng$, k, 1) 
IF char$ <> " * THEN squeeze$ = squeeze$ + char$ 
NEXT k 
END SUB 


Program 5-2. STRING SQUEEZER WITH SUBPROGRAM 


Using Arrays 


Original Dartmouth BASIC had only one-dimensional and two- 
dimensional arrays. In the documentation, one-dimensional arrays 
were called lists or vectors, and two-dimensional arrays were called 
tables or matrices. The DIM statement was used to specify the 
upper bound for subscripts; the lower bound was always 1. If no 
DIM statements were used, BASIC set the upper bound to 10 by 
default. 
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QuickBASIC allows you to use numeric or string arrays with up 
to 63 dimensions. Numeric arrays can be of any numeric type — 
integer, long integer, single precision, or double precision. 


Dimensioning Arrays 


In QuickBASIC, you can set the lower bound and the upper bound 
for array subscripts by using the DIM statement. You can also set 
the lower bound by using the OPTION BASE statement. 


OPTION BASE 1 sets the lower bound for 
subscripts to 1 

OPTION BASE 0 sets the lower bound for 
subscripts to 0 


р REMEMBER The default value for the lower bound is 0. Don't 
use the OPTION BASE statement to change it to I unless you have 
a good reason to do so. 


The DIM statement initializes all elements of numeric strings to 
zero and all elements of string arrays to the null, or empty, string 
(^ ^. A DIM statement should be used before the array it affects is 
referenced. It is good practice to put all DIM statements near the 
beginning of a program, outside any loops. Otherwise, you are 
likely to encounter an "array already dimensioned" error. 

You may dimension an array as STATIC (allocated when the 
program is translated) or DYNAMIC (allocated when the program 
is run). Arrays that are dimensioned with only numeric constants 
are STATIC. Arrays that are dimensioned with variables are DY- 
NAMIC. 

STATIC arrays are fixed in size at the time the program is 
translated by QuickBASIC. Table 5-1 shows some examples of DIM 
statements used to dimension STATIC arrays. The keyword TO 
defines both the lower bound and the upper bound for a subscript 
in State$(1 TO 60) and TicTacToe%(1 TO 3, 1 TO 3). 
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DIM Statement Description of STATIC Array 

DIM price(100) One-dimensional, single-precision 
array with 101 elements, price(0) to 
price(100) 

DIM State$(1 TO 60) One-dimensional string array with 


60 elements, State$(1) to State$(60). 
Note the use of TO to set both the 
lower and upper bounds 

DIM ТісТасТое%(1 TO 3, 1 TO 3) Two-dimensional integer array with 
nine elements. You can think of this 
array as being arranged in three 
rows and three columns 

DIM Hyperspace#(99, 99, 99,99) Four-dimensional double-precision 
array with 100 » 100 * 100 * 100 
elements. Oops! Out of memory 


Table 5-1. DIM Statements Used to Dimension STATIC Arrays 


DYNAMIC arrays use variables as subscripts in a DIM statement. 
Table 5-2 shows examples of DIM statements used to dimension 
DYNAMIC arrays. 

QuickBASIC has two functions that make it easy to find the 
upper and lower bounds of an array and allow you to write general 
subprograms and FUNCTIONS that can be used by any program 
that uses arrays. LBOUND returns the lower bound (smallest avail- 
able subscript for an array). It is used in the form 


LBOUND (Celsius, 1) 


where Celsius is the name of the array, and 1 is the number of 
dimensions in the array (maximum of 63). The number used 
indicates which dimension of the array you want returned. 

UBOUND returns the upper bound (largest available subscript 
for an array). It is used in the form 


UBOUND (Celsius, 1) 
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DIM Statement Description of DYNAMIC Array 

DIM price(Last%) One-dimensional, single-precision 
array with elements from price(0) to 
price(Last%) 

DIM price(1 TO Last%) One-dimensional, single-precision 
array with elements from price(1) to 
price(Last%) 

DIM price(10 TO Last%) One-dimensional, single-precision 


array with elements from price(10) 
to price(Last%) 
DIM Gomoku%(1 TO n%, 1 TO Two-dimensional integer array with 


n%) elements from Gomoku%(1, 1) to 
Gomoku%(n%, n%) 
DIM airmiles%(n%, n%) Two-dimensional integer array with 


elements from airmiles%(0, 0) to 
airmiles%(n%, n%) 


Table 5-2. DIM Statements Used to Dimension DYNAMIC Arrays 


where Celsius is the name of the array, and 1 is the number of 
dimensions in the array (maximum of 63). The number used 
indicates which dimension of the array you want returned. 

For example, suppose an array has been dimensioned as 
follows: 


DIM Filedrawer$ (1 TO 100, O TO 25, -5 TO 5) 


Table 5-3 shows the values that would be returned for the specified 
LBOUND and UBOUND statements. 

You may use the shortened form of LBOUND or UBOUND for 
one-dimensional arrays, such as Celsius in the previous example, 
since the default value for dimension is 1 (a one-dimensional 
array). 


LBOUND (Celsius) instead of LBOUND (Celsius, 1) 


UBOUND (Celsius) instead of UBOUND (Celsius, 1) 


150 


Using QuickBASIC 


Statement Value Returned 
LBOUND (Filedrawer$, 1) 1 
LBOUND (Filedrawer$, 2) 0 
LBOUND (Filedrawer§, 3) -5 
UBOUND (Filedrawer$, 1) 100 
UBOUND (Filedrawer$, 2) 25 
UBOUND (Filedrawer$, 3) 5 


Table 5-3. Values Returned for LBOUND and UBOUND Statements 


If an array is not dimensioned, LBOUND is 0 by default, unless 
you use an OPTION BASE statement to set the lower bound to 1. 
It is good practice to use a DIM statement for every array you use 
so that no confusion about an array's subscripts will result. 

QuickBASIC makes it easy to state a dimension's upper and 
lower bounds clearly. Use every method available to make your 
programs easy to read and understand. The next section will use 
the tools discussed so far in several examples and will introduce 
some new tools. 


Passing Arrays to 
FUNCTION Procedures 


You can pass an entire array to a FUNCTION or SUB procedure 
by putting the name of the array followed by an "empty" pair of 
parentheses (left and right) in the argument list. An array name 
followed by a pair of parentheses must also appear in the param- 
eter list ofthe FUNCTION or SUB statement. Program 5-3, SUM 
AND AVERAGE OF ELEMENTS OF STATIC ARRAYS, uses a 
FUNCTION procedure to calculate the sum of the elements in an 
array. 

Two arrays are created in the main module of Program 5-3. 
Celsius( ) is a one-dimensional array with 7 elements. Fahrenheit( ) is 
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DECLARE FUNCTION ArraySum% (array%()) 

REM ** SUM AND AVERAGE OF ELEMENTS OF STATIC ARRAYS ** 
' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0503.BAS 

' One-dimensional arrays read from data 


' Dimension arrays as STATIC, define integers 
DEFINT A-Z 
DIM Celsius(1 TO 7), Fahrenheit(l1 TO 12) 


' Read data for Celsius array 
FOR k » 1 TO 7 
READ Celsius(k) 
NEXT k 
DATA 20, 18, 23, 22, 19, 21, 23 


' Read data for Fahrenheit array 
FOR k » 1 TO 12 
READ Fahrenheit(k) 
NEXT k 
DATA 68, 67, 73, 71, 79, 82, 89, 85, 80, 75, 76, 74 


' Print sum and average for Celsius array 

CLS 

PRINT “Celsius sum: "; ArraySum%(Celsius()) 

PRINT "Celsius average: "; ArraySum%(Celsius()) / 7 


' Print sum and average for Fahrenheit array 
PRINT "Fahrenheit sum: "; ArraySum£(Fahrenheit()) 
PRINT "Fahrenheit average: "; ArraySum%(Fahrenheit()) / 12 


END 


FUNCTION ArraySum% (array()) 
' Returns the sum of the elements of a one-dimensional array 
sum = 0 
FOR k = LBOUND(array) TO UBOUND(array) 
sum = sum + array(k) 
NEXT k 
ArraySum% = sum 
END FUNCTION 


Program 5-3. SUM AND AVERAGE OF ELEMENTS OF STATIC ARRAYS 


a one-dimensional array with 12 elements. The elements in the two 
arrays are passed to the FUNCTION ArraySum by the statements 


PRINT “Celsius sum: "; ArraySumZ(Celsius()) 


PRINT “Fahrenheit sum: "; ArraySum$(Fahrenheit()) 
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Note that the PRINT statements contain the name of the 
FUNCTION (ArraySum%) and the array name (Celsius or Fahr- 
enheit) followed by an empty pair of parentheses. The empty pa- 
rentheses following the array name are essential for passing the 
elements of the array. 

An array name, also followed by an empty pair of parentheses, 
appears in the FUNCTION statement. The parentheses are nec- 
essary for passing the elements of the array. 


FUNCTION ArraySum% (array()) 


The sum of the elements in the array is passed back from the 
FUNCTION to the main module by the assignment 


ArraySum? = sum 


In addition to printing the sum of the elements of each array, the 
main module prints the average of the elements of each array. 


PRINT "Celsius average: "; ArraySumZ(Celsius()) /7 


PRINT "Fahrenheit average: "; ArraySum%(Fahrenheit()) / 12 


The FUNCTION is called twice for each array. The first time 
the FUNCTION is called, the sum of the elements is printed. The 
second time the FUNCTION is called, the sum of the elements is 
used to find the average of the elements. If the arrays were large, 
you would want to call each function only once. You could get the 
sum of the elements from the function, assign that value to a 
variable, and compute the average of the elements from the vari- 
able. Note that with LBOUND and UBOUND, the FUNCTION 
can handle arrays of different sizes. 

Figure 5-4 shows how Program 5-3 prints the sum of the tem- 
peratures and their averages. The averages are printed as single- 
precision numbers. The expressions in the PRINT statements that 
calculate the averages contain a division by numeric values 7 and 
12. QuickBASIC treats the results as single-precision values and 
prints them in that form. 


Power Tools: FUNCTION and SUB Procedures 153 


Celsius sum: 146 

Celsius average: 20.85714 
Fahrenheit sum: 919 
Fahrenheit average: 76.58334 


Press any key to continue 


Figure 5-4. Output of Program 5-3 


Look at the DECLARE statement that QuickBASIC added to 
the beginning of Program 5-3. Notice that the data type used in 
creating the FUNCTION also appears in the DECLARE statement. 


DECLARE FUNCTION ArraySumz (аггау4()) 


The data type (76) specified in the DECLARE statement appears 
after both the FUNCTION name (ArraySum%) and the array 
name (array%). 

Program 5-4, SUM AND AVERAGE OF ELEMENTS OF A 
DYNAMIC ARRAY, demonstrates the use of dynamic arrays and 
the REDIM statement, which allows you to resize an array at any 
time during a program. 

When a program is compiled by QuickBASIC, all arrays de- 
clared in a REDIM statement are treated as dynamic arrays. When 
the program is run and a REDIM statement is executed, the array 
is deallocated (if it was previously allocated). The REDIM state- 
ment reallocates the array with the specified new dimensions. Pre- 
vious array element values are lost because all numeric elements 
are reset to zero and all string elements are reset to null (empty) 
strings. Figure 5-5 shows a typical run of Program 5-4. 

Program 5-5, GROSS VALUE OF STOCKS, demonstrates the 
use of the FUNCTION SubTotal#, which computes the sum of the 
products of corresponding elements of two arrays. You can prob- 
ably think of several other uses for this function. 
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DECLARE FUNCTION ArraySum! (arrayl()) 

REM ** SUM AND AVERAGE OF ELEMENTS OF A DYNAMIC ARRAY яя 
' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0504.BAS 

' One-dimensional array entered from keyboard 


' Enter the number of elements in the array 
CLS : DEFINT A-Z 
INPUT ^How many elements^; size 


' Redimension the dynamic array. 
REDIM array!(1 TO size) 


' Enter the elements arrayl(1) to arrayl(size) 
FOR k = 1 TO UBOUND(array!) 

PRINT "Array element #"; К; : INPUT arrayl(k) 
NEXT k 


' Print sum and average of elements 

PRINT 

PRINT "Sum of elements: *; ArraySuml(arrayl()) 

PRINT "Average element: "; ArraySuml(arrayl()) / size 


END 


FUNCTION ArraySuml (arrayl()) 
' Returns the sum of the elements of a one-dimensional array 
suml = 0 
FOR k = LBOUND(arrayl) TO UBOUND(arrayl) 
sum! = sum! + array! (Кк) 
NEXT k 
ArraySum! = suml 
END FUNCTION 


Program 5-4. SUM AND AVERAGE OF ELEMENTS OF A DYNAMIC 
ARRAY 


Passing Arrays to SUB 
Procedures 


You can pass an array to a SUB procedure by putting the name of 
the array followed by an empty pair of parentheses in the argument 
list of a CALL statement. A corresponding array must also appear 
in the parameter list in the SUB statement that begins the proce- 
dure. A SUB procedure can return an entire array to the program 
module that called the procedure. 
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How many elements? 4 
Array element # 1 ? 14.2 
Array element * 2 ? 17.65 


4 
Array element # 3 ? 22 
Array element # 


4 ? 33 


Sum of elements: 86.85 
Average element: 21.7125 


Press any key to continue 


Figure 5-5. Output of Program 5-4 


Program 5-6, CREATE SCRAMBLED NUMERIC ARRAY, cre- 
ates an array of integers from 1 to n and then scrambles the array 
by using a subprogram called Shuffle. Because this creates a scram- 
bled array in which each element is known (integers from 1 to n), 
it is useful in testing searching and sorting procedures, as you will 
see. 

Figure 5-6 illustrates a test run for two values of n. Note that for 
each run, every integer from 1 to » appears in the shuffled list of 
numbers. 

The following subprogram sorts an integer array. Note the use 
of a DO. . .LOOP with a WHILE clause and a Block IF... THEN 
structure. 


SUB BubbleSort (array%()) 
' Sorts an integer array from top to bottom 
top = LBOUND(array%) 
bottom = UBOUND(array2) 
DO WHILE top < bottom 
FOR here = bottom TO top + 1 STEP -1 
IF arrayZ(here) < array%(here - 1) THEN 
SWAP arrayZ(here), arrayZz(here - 1) 
END IF 
NEXT here 
top = top + 1 
LOOP 
END SUB 


Program 5-7, BUBBLE SORT TEST PROGRAM, sets up an 
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DECLARE FUNCTION SubTotal* (Qty&(), PriceEach#()) 
REM жж GROSS VALUE OF STOCKS ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0505.BAS 


' Initialize and enter the number of elements in arrays 
CLS : DEFINT А-2 
INPUT "How many items (pairs of numbers)"; size 


' Redimension dynamic arrays, Shares& and SharePrice* 
' Shares as long integer, SharePrice as double precision 
REDIM Shares&(1 TO size), SharePrice*(l TO size) 


' Enter stock data: number of shares and price per share 
FOR k = 1 TO UBOUND(Shares&) 
PRINT 
INPUT "Number of shares”; Shares&(k) 
INPUT "Price per share”; SharePrice#(k) 
NEXT k 
PRINT 
PRINT "Gross value is "; SubTotal#(Shares&(), SharePrice*()) 


END 


FUNCTION SubTotal* (Qty&(), PriceEach#()) 

Returns the sum of the products of corresponding elements 
' Assumes both arrays have the same LBOUND, UBOUND 

First » LBOUND(Qty&) 

Last - UBOUND(Qty&) 

sum* = 0 

FOR k = First TO Last 

sum* з sum* + Qty&(k) * PriceEach*(k) 

NEXT k 

SubTotal* = sum# 
END FUNCTION 


Program 5-5. GROSS VALUE OF STOCKS 


array of integers 1 ton, shuffles the array, prints the shuffled array, 
sorts the shuffled array, prints the sorted array, and prints the time 
required to sort the array. 


Using More than One 
Procedure 


QuickBASIC programs are not limited to one procedure, as Pro- 
gram 5-7 demonstrates. You may add procedures to expand an 
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DECLARE SUB Shuffle (arrayZ()) 

REM ** CREATE SCRAMBLED NUMERIC ARRAY ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQBOSO6.BAS 


' Generate an array of integers 1 to n, then shuffle it. 
CLS : DEFINT A-Z 


DO 


PRINT “Starting array is an ordered list, 1 to n.” 
INPUT "What value of n do you want’; n 


' Redimension Numbers as a one-dimensional 
' DYNAMIC integer array 
КЕРІМ Numbers%(1 TO n) 


' Create ordered array with element #k equal to k. 
FOR k = 1 TO n 

Numbers%(k) = k 
NEXT k 


' Shuffle the array 
CALL Shuffle(Numbers2()) 


' Print the scrambled array. 

PRINT 

PRINT "Here are your mixed-up numbers: 

PRINT 

FOR К = 1 TO n 

PRINT Numbers2(k), 

NEXT k 

PRINT 

PRINT "Press ESC to end, another key to continue” 

ky$ = INPUTS(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


SUB Shuffle (arrayz()) 

' Randomizes a numeric array 

' Assumes lower bound is one (1). 
RANDOMIZE (TIMER) 


' Find size of array (number of elements) 
size = UBOUND(array2) 


' Swap each element with a randomly selected element 
FOR k = 1 TO size 
rndindex = INT(size * RND(1)) + 1 
SWAP array%(k), array%(rndindex) 
NEXT k 
END SUB 


Program 5-6. CREATE SCRAMBLED NUMERIC ARRAY 
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existing program. You might have a notepad program with the 
following subprogram that prints the notes: 


CALL Prnt(Note$()) 


SUB Prnt (Item$()) 
' Prints one element of array (a note) 
' at a time from 1 to UBOUND(Item$) 
CLS 
FOR num = 1 TO UBOUND(Item$) 
PRINT Item$ (num) 
PRINT 
NEXT num 
END SUB 


Starting array is an ordered list, 1 to n. 
What value of n do you want? 15 


Here are your mixed-up numbers: 
11 2 13 
5 15 10 
12 8 6 


Press ESC to end, another key to continue 
Starting array is an ordered list, 1 to n. 
What value of n do you want? 25 


Here your mixed-up numbers: 
3 
7 
16 
20 
8 


Press ESC to end, another key to continue 


Figure 5-6. Output of two runs of Program 5-6 
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DECLARE SUB Shuffle (array%()) 

DECLARE SUB ArrayPrint (array%()) 

DECLARE SUB BubbleSort (array%()) 

REM ** BUBBLE SORT TEST PROGRAM ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0507.BAS 


' Initialize 
CLS : DEFINT А-2 


DO 
' Get array size and Redimension Numbers 
' as a STATIC integer array 
INPUT "How many numbers in array"; n 
REDIM Numbers%(1 TO n) 


' Create shuffled array containing integers 1 to n. 
FOR k » 1 TO n 
Numbers2(k) = k 
МЕХТ К 
CALL Shuffle (Numbers2()) 


' Print shuffled array 
PRINT : PRINT "Shuffled array:" 
CALL ArrayPrint (Numbers2() ) 


' Sort shuffled array. Time the sort. 
Start* = TIMER 

CALL BubbleSort (Numbers2() ) 

finisht = TIMER 


' Print sorted array and sorting time 

PRINT "Sorted array:" 

CALL ArrayPrint(NumbersZ()) 

PRINT "Sorting time:"; finish* - start; "seconds" 


' Choose to end or continue 
PRINT 
PRINT "Press ESC key to end, a different key to continue" 
ky$ = INPUTS(1): IF ky$ = CHR$(27) THEN EXIT DO 
LOOP 


END 


Program 5-7. BUBBLE SORT TEST PROGRAM 
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SUB ArrayPrint (array%()) 
' Prints an integer array using comma spacing. 
FOR К = LBOUND(array2) TO UBOUND (array?) 
PRINT arrayz(k), 
NEXT k 
PRINT : PRINT 
END SUB 


SUB BubbleSort (array%()) 
' Sorts an integer array from top to bottom 
top = LBOUND(array2) 
bottom = UBOUND (array?) 
DO WHILE top < bottom 
FOR here = bottom TO top + 1 STEP -1 
IF arrayZ(here) « array%(here - 1) THEN 
SWAP array%(here), array%(here - 1) 
END IF 
NEXT here 
top » top * 1 
LOOP 
END SUB 


SUB Shuffle (array%()) 
' Randomizes a numeric array. Assumes lower bound is one (1). 


RANDOMIZE (TIMER) 


' Find size of array (number of elements) 
size = UBOUND(array%) 


' Swap each element with a randomly selected element 
FOR k = 1 TO size 
rndindex » INT(size * RND(1)) * 1 
SWAP arrayZ(k), array%(rndindex) 
NEXT k 
END SUB 


Program 5-7. BUBBLE SORT TEST PROGRAM (continued) 
Program 5-8, NOTE PRINTER, uses the subprogram (Prnt) to 


input five short text items. The items are placed in an array named 
Note$. The subprogram is then added. 
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Enter the main program of Program 5-8 and save it with the 
Save As command from the File menu, giving it the filename 
UQB0508.BAS. Then add the subprogram by using the New SUB 
command from the Edit menu. As a final step, save the two to- 
gether by using the Save command from the File menu. Figure 5-7 
shows five typical notes printed by the subprogram after they were 
entered in the main part of the program. 

You can change the DIM statement to increase or decrease the 
size of the array. Nothing in the subprogram would have to be 
changed, since LBOUND and UBOUND take care of the upper 
and lower limits of the FOR. . .NEXT loop that prints the notes. 


DECLARE SUB Prnt (Item$()) 

REM ** NOTE PRINTER жж 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UQB0508.BAS 


' Initialize and get number of notes 
CLS : DEFINT A-Z 

INPUT "How many notes ^; numb 

DIM Note(1 TO numb) AS STRING 


' Get notes 

FOR numb » 1 TO UBOUND(Note$) 
PRINT numb; 
LINE INPUT "> °; NoteS$(numb) 
PRINT 

NEXT numb 


' Print notes and end 
CALL Prnt(Note$()) 


END 


SUB Prnt (Item$()) 
' Prints one element of array (a note) 
' at a time from 1 to UBOUND(Item$) 
CLS 
FOR num » 1 TO UBOUND(Item$) 
PRINT Item$(num) 
PRINT 
NEXT num 
END SUB 


Program 5-8. NOTE PRINTER 
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All the elements in an array can be passed to a subprogram as follows: 
The array's name is followed by empty parentheses ( ). 
The name and parentheses are used in the argument list. 
They are also used in the subprogram’s parameter list. 


LBOUND and UBOUND are useful for determining the size of an array. 


Press any key to continue 


Figure 5-7. Output of Program 5-8 


You can add a second subprogram to Program 5-8. Use the 
Open Program command from the File menu to access Program 
5-8 if it is not already on display. Move the cursor down to the 
blank line just above the END statement. Type the following line, 
and press ENTER: 


CALL CountChars(Note$()) 


This statement will pass the array Note$ to the CountChars sub- 
program. 

Now access the New SUB command from the Edit menu. Type 
in the name of the subprogram as follows, and press ENTER: 


Name: CountChars 
Enter the following subprogram: 


SUB CountChars (Rec$()) 
' Count characters in notes 

char = 0 

FOR num = 1 TO UBOUND(RecS) 

char = char + LEN(Rec$(num) ) 

NEXT num 

PRINT "Number of characters in array is:"; char 
END SUB 


When you have entered the subprogram, access the dialog box 
from the SUBs command of the View menu, as shown in Figure 
5-8. Make sure the highlight is on the main module name, and 
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асрати. Search Run Debug Calls Options 


Choose program item to edit 
UQRASAB . NAS 


Prnt 


КЕШЕШ ТИШИНИН VERRE HERE PRG 
UQB8588 BAS is the Main Mod 


B Edit in Active < Edit in Split > < Cancel > 
< Delete > 


Enter-Execute Esc=Cancel Tab=Next Field — firrou-flext lten 
Figure 5-8. SUBs dialog box - Program 5-8 


press ENTER. The main module then appears on the display. Change 
the name and number of the program to Program 5-9, NOTE 


PRINTER AND CHARACTER COUNTER, as follows: 


REM ** NOTE PRINTER AND CHARACTER COUNTER ** 
' Using QuickBASIC, Chapter 5 
' Microsoft QuickBASIC 4.5 File: UQB0509.BAS 


All the elements in an array can be passed to a subprogram as follows: 


The array's name is followed by empty parentheses ( ). 

The name and parentheses are used ín the argument líst. 

They are also used in the subprogram's parameter líst. 

LBOUND and UBOUND are useful for determining the size of an array. 
Number of characters ín array is: 298 


Press any key to continue 


Figure 5-9. Output of Program 5-9 
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DECLARE SUB CountChars (Rec$()) 

DECLARE SUB Prnt (Item$()) 

REM ** NOTE PRINTER AND CHARACTER COUNTER ** 

' Using QuickBASIC, Chapter 5 

' Microsoft QuickBASIC 4.5 File: UDQB0509.BAS 


' Initialize and input number of notes 
CLS : DEFINT A-Z 

INPUT "How many notes "; numb 

DIM Note(1 TO numb) AS STRING 


' Get notes 

FOR numb = 1 TO UBOUND(Note$) 
PRINT numb; 
LINE INPUT “> ^"; Note$(numb) 
PRINT 

NEXT numb 


' Print notes, count characters, and end 
CALL Prnt(Note$()) 
CALL CountChars(Note$()) 


END 


SUB CountChars (Rec$()) 

Count characters in notes 

char = 0 

FOR num = 1 TO UBOUND(Rec$) 

char = char + LEN(Rec$ (num) ) 

NEXT num 

PRINT "Number of characters in array is:"; char 
END SUB 


SUB Prnt (Item$()) 
Print one element of array (a note) 
' at a time from 1 to UBOUND(Item$) 
CLS 
FOR num = 1 TO UBOUND(Item$) 
PRINT Item$(num) 
PRINT 
NEXT num 
END SUB 


Program 5-9. NOTE PRINTER AND CHARACTER COUNTER 


Now access Save As from the File menu, and press ENTER. At the 
prompt, enter the new filename. 


File Name: UQB0509.BAS 
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The CountChars subprogram completes Program 5-9. Figure 
5-9 shows the output of the program, using the same five notes 
shown in Figure 5-7. 


Viewing Subprograms 


When you load a QuickBASIC program, all files that contain mod- 
ules belonging to the program are placed in memory. However, 
only the main module is displayed. The View menu, shown in 
Figure 5-10, lets you open new windows, display program output, 
look at modules in memory, and customize your screen's appear- 
ance. 


File Edit KITE Search Run Debug Calls Options 
589. BAS 


JPECLORE SUB [| s 
DECLANE SUD [Mh NEL): Shift T2 
ВМ жк NOTE ЖУ EL 


J’ Using иіс 
i? Micrasoft ра Statement ASAD. RAS 
0 


put Screen F4 


|" Initial ize 
ЕЗИ AMO] Included File 
MITTERET. | Included Wines 
DIM Muted. T 


IFOR nunb = 1 TO UBOUND (Notes) 
PRINT nunh: 
LINE INPUT "> "; NoteS(nunb) 
PRINT D 

| NEXT nunb 


|а ИШЕНИШ ы OE 


—— Innediate ———-——---——-——————-——- 


Displays a loaded SUB, FUNCTION, module, Include file, or document 
Figure 5-10. View menu 
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Move the highlight down to the Split command. Notice the 
message at the bottom of the screen: "Divides screen into two View 
windows." Press ENTER. The screen is split into two windows, with 
the cursor in the upper window. Parts of the main module are 
shown in each window. 

Access the View menu again. With the highlight on the SUBs 
command, press the ENTER key. The large box on the screen displays 
a list of the main module and the procedures that now make up 
Program 5-9, as Figure 5-11 shows. 

The main module, UQB0509.BAS, is highlighted. You can 
move the highlight between the main module and the subpro- 
grams by pressing the UP ARROW and DOWN ARROW keys. The high- 
lighted module is described below the box that lists the modules. 

Press the DOWN ARROW key once. The highlight moves down to the 
subprogram CountChars, which is described beneath the listing 


[UTEM Search Run Debug Calls Options 
: UQB8589 , BAS 
SUBs 
Hi Choose program item to edit 
liQna589 . BAS 


CountChars 
Prnt 


BRE ЖИЛИК 


Buy Moe ult 
UQB8S89.BAS is the Main Module 


Edit in Active < Hit in Split > € Cancel > 
< Delete > < Help > 


Tab-Mext Field  Arrov=text [ten 
Figure 5-11. SUBs dialog box - Program 5-8 
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box: “CountChars is a SUB in UQB0509.BAS.” Press the DOWN 
ARROW key again. The highlight moves down to Prnt. This subpro- 
gram is now described beneath the listing box: "Prnt is a SUB in 
UQB0509.BAS.” Leave the highlight on Prnt. 

Press the TAB key twice. The cursor moves first to the Edit in 
Active button and then to the Edit in Split button. Press ENTER while 
the Edit in Split button is active. This sends you back to the editor's 
View window, which is now split into two windows, as shown in 
Figure 5-12. The subprogram Prnt has been placed in the lower 
window along with the cursor, because you selected Prnt in the 
large dialog box and Split as the active window. You can now edit 
Prnt if you wish. 

Press the F6 key. The cursor moves down to the small Immediate 
window at the bottom of the screen. An immediate command, such 
as RUN, may be entered when the cursor is in this window. Type 
beep and press ENTER. You will immediately hear a beep. 


File Edit Uieu Search Hun. Bebug Calls Options Help | 
0080589 , BAS т 

DECLARE SUB CountChars (Rec$()) 

DECLARE SUB Prnt (1ten$O) 

REM знє NOTE PRINTER AND CHARACTER COUNTER «x 

› Using QuickBASIC, Chapter 5 

? Microsoft QuickBASIC 4.5 File: UDQBOS89, BAS 


! Initialize and input number of notes 
CLS : DEFINT А-2 
INPUT “How many notes ": numb 
UQRB589 BAS: Prat Ü 
DEFINT А-2 1 
SUB Prnt (Iten$O) 
› Print one element of array (a note) 
› at а tine fron 1 to UBOUND(Iten$) | 
CLS 
FOR nun = 1 TO UBOUND(Iten$) | 
PRINT Iten$(nun) | 
PRINT V 


Immediate 


| hif GK Y-Help? <P6-Winduw? Q2-Subs? Q5-Hun? CFU-Stey? UBBB1:8Ul ; 
Figure 5-12. Split View window 
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Press F6 again. The cursor moves to the upper View window, 
where the main module is. You can now scan the main module. 
Although it doesn't all show in the short window, you can scroll 
through the entire module by using the arrow keys. You can also 
edit the main module while the cursor is in its window. 

Only two View windows (plus the Immediate window) appear 
on the screen at one time. You may view any two of the three 
portions of the program: the main module, SUB CountChars, or 
SUB Prnt. To change the pair of program portions in the split 
windows, access the Next SUB command of the View menu and 
press ENTER. 

When you are finished using split window, press CTRL+F10 to 
expand the active window to fill the View window. 


Review 


This chapter emphasized modular programming by using the pro- 
cedures SUB. . .END SUB and FUNCTION. . .END FUNCTION. 
Subprograms and this type of function are procedures that are 
outside of the main program. QuickBASIC organizes these lower 
levels of code alphabetically and keeps them separate from the rest 
of the program. 

Procedures are entered from the Edit menu and can be viewed 
from the View menu. 

QuickBASIC arrays were introduced. Methods for passing data 
in arrays to subprogram and function procedures were discussed 
and demonstrated in several programs. 


Sequential 
Unstructured Files 


In the preceding chapters, you have used many files. For instance, 
you copied files from MS-DOS and QuickBASIC disks to create a 
work disk. You created, stored, and used program files containing 
QuickBASIC programs and modules that can be merged into pro- 
grams. These programs used data that was supplied from the 
keyboard or was included in the program as assignment statements 
(for example, row — 1) or in DATA statements. 

DATA statements are stored in memory along with the program 
that uses the information contained in them. When you are work- 
ing with small amounts of information, DATA statements provide 
a good method for storing data. However, when you need to 
handle large amounts of data, DATA statements become cumber- 
some to edit, are prone to error, and take up much memory space 
in the computer. À better way to store large amounts of informa- 
tion is in data files on disks. Data files stored on disks can be used 
conveniently by more than one program, and one program can use 
data from more than one file. In addition, you can change the 
contents of a data file without recompiling your program. 
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QuickBASIC supports two types of data files: sequential files 
and random-access files. In this book, sequential files are subdi- 
vided into unstructured and structured files. In this chapter, you 
will learn how to create and use unstructured sequential files. 
Chapter 7 covers structured sequential files, and Chapter 8 dis- 
cusses random-access files. 


Types of Data Files 


A data file is a collection of records, usually stored on magnetic tape 
or disk. A sequential file has a first record, a second record, a third 
record, and so on. Sequential files hark back to the days before disk 
drives were invented, when data files were stored on magnetic 
tape — rooms full of magnetic tape! 


Ist 2nd 3rd 4th 
record record record record so On... 


Reel of tape 


Today, magnetic tape is used mostly for archiving or backing up 
files. Current files are stored on disks. 

Even on disk, sequential files act as if they were on tape. To get 
record 7, the computer reads, sequentially, record 1, record 2, and 
so on, until the desired record, number 7, appears. 

Sequential files have their advantages and disadvantages: 


Advantages 


W Records can be any length, from very short to very long. 


W Since records can be of variable length, records make efficient 
use of space. 
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W They are excellent for information that doesn't change or that 
changes infrequently — for example, historical data. 


Disadvantages 


W Looking up information in a large data file is slow, because the 
information is searched item by item. 


W Editing a sequential file is cumbersome, usually requiring a file 
to be rewritten. 


W Although adding records to the end of a file is easy, inserting 
records into the file requires rewriting the entire file. Deleting 
records may also require a complete rewrite. 


W Sorting a large sequential file is considerably more difficult than 
sorting a random-access file. 


A sequential file is like music stored on a cassette: first song, second 
song, third song, and so on. Songs can be different lengths. To get 
to song 7, you must move the tape through each song starting from 
song 1. To delete or add a song in the middle of the tape requires 
making a new tape. Imagine the difficulty of creating a tape in 
which the songs appear in an entirely different order. 

In this book, sequential files are either unstructured or struc- 
tured: 


Unstructured 


These are free-form; one record is one string. A record can be any 
length a string can be, either very short or quite long. You can even 
have an empty string (” ") as a record. 


Structured 


A record consists of two or more parts, called fields. Each record 
has the same fields. A field can be string or numeric. String fields 
can be any length up to the maximum length for a string (32,767 
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characters). Numeric fields are stored in ASCII format, one byte 
per digit. Numeric fields are limited in length by the numeric 
variables used to write to or read from the files. 

Most of this chapter is devoted to the creation and use of an 
unstructured sequential file called NotePad. This file consists of 
free-form records that are, well, notes. A record can be anything 
you wish —for example, notes about how to use QuickBASIC —as 
long asit is typed as a single string, including any ASCII characters. 

If you looked into the NotePad file, you might see 


First record: "This is the NotePad.Dat file." 

Second record: "NotePad.Dat is an unstructured sequential file." 
Thírd record: "Use it for notes about how to use QuickBASIC." 
Fourth record: "Each record is one string, commas OK, semicolons OK." 
Fifth record: "Call Bob about stuff for Chapter 7." 

Sixth record: "Call dentist for appointment soon.” 


For an example of a structured sequential file, you might have a 
program that finds the two-letter abbreviation for a state. In Chap- 
ter 7, you will create a data file with this information. Each record 
in the file will have two fields: 


First field Second field 
First Record: Alabama AL 
Second Record: Alaska AK 
Third Record: American Samoa AS 
Last Record: Wyoming WY 


In this file, each record has two fields. The first field (perhaps 
called State$) has a variable length. The second field (perhaps 
called Abbrev$) has a fixed length (two characters). 

Another example of a structured file is a catalog of camping 
equipment. In this file, each record is divided into fields, as follows: 
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Page% Page number, a numeric field 
CatNum$ Catalog number, a string field 
Description$ Brief description of item, a string field 
Price Price, a numeric field 

Grams% Weight in grams, a numeric field 


Here are a few records: 


Page% CatNum$ Descrip- Price Grams% 

tion$ 
5 33-972 Backpack 129.95 1824 

10 47-865 Tent 199.95 3175 

19 50-336 Sleeping 99.95 1653 
bag 

25 40-027 Stove 41.95 379 

27 40-115 Cooking kit 29.95 884 

3] 45-820 Compass 25.95 86 

44 47-322 Camping 13.95 57 
knife 


Now suppose the entire catalog is on a disk. It would be easy to 
write a program to browse through and assemble various config- 
urations of gear, complete with total price and total weight. Since 
the catalog information usually changes only a few times a year, this 
would be an appropriate application for a sequential file. 

Sequential files are stored as ASCII text files. This means that 
they can be used by word processors and other application pro- 
grams that accept ASCII text. You could use a word processor to 
view or modify a sequential file. 

The invention of the disk file in the 1950s made large random- 
access files possible. In a random-access file, any record can be 
obtained directly and quickly without reading any other file. If you 
want record 237, you can get it immediately, without first reading 
the preceding 236 records. 

Random-access files are highly structured. All records must be 
the same length. You can set the record size; if you don't specify a 
record size, QuickBASIC assigns a default size of 128 characters. 
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Records can be divided into fields. Fields must have a fixed size; 
that is, corresponding fields in all records must be the same size. 
Fields must occur in the same order within each record. 

Random-access files have advantages and disadvantages: 


Advantages 


W They offer fast access to any record. 


W They are easy to edit: You cán change any record without 
rewriting the entire file. 


W They make it easier to delete or insert records than do sequential 
files. 


W They are easier to sort than sequential files. 


Disadvantages 


W They require a fixed record length and fixed field length. Some 
records or fields may be partially "empty." 


ш They require more work to design the file: You must specify the 
structure and size of fields. 


А random-access file of states and two-letter abbreviations would 
contain 60 records, one for each state or territory in the United 
States that has a two-letter abbreviation assigned to it. The longest 
name in the file would be Federated States of Micronesia, which has 
30 characters. Therefore, each record could contain two fields: 


State$ Name of state or territory, 30 characters 
Abbrev$ Two-letter abbreviation, 2 characters 


This file would provide fast access to the abbreviation for any state 
or territory but would be inefficient in its use of space; for example, 
“Iowa” would occupy a 30-character field. 

Your plans for the information determine the type of data file 
that you should use. Keep in mind how often information will be 
altered, added to, or deleted from the file. Generally, sequential 
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files are best for data that doesn't change frequently; random- 
access files are best for information that you will change frequently 
and for information to which you need fast access. When you have 
finished this and the next two chapters, you should be able to 
choose and design the file type best suited to your application. 


Naming a File 


Sequential files are named just like any other kind of MS-DOS file 
and must conform to MS-DOS file-naming conventions. Filenames 
are limited to eight characters plus a three-letter extension. The 
following example, used in a program in this chapter, contains 
seven characters plus a three-letter extension: 


NotePad.Dat 


The three-letter extension (Dat) was chosen to indicate that it is a 
data file. 


Filenames may be composed of the following characters: 


W The letters a through z (lowercase or uppercase) 
ш The digits 0 through 9 
ш The special characters () () @ # $965 ^&!-  '/" 


In this book, filenames are frequently shown in a mixture of up- 
percase and lowercase to make them more readable. MS-DOS 
converts all lowercase letters in filenames to uppercase, however, 
so do not rely on mixing lowercase and uppercase to distinguish 
between files. 

Since a filename is essential to locating a file, make your file- 
names as descriptive as possible within the eight-character limit. To 
keep track of your files, you might want to set up a separate file 
listing the filenames and describing their contents. An unstruc- 
tured sequential file can be used for this purpose. This file, which 
you might call FileName.Dat, might look like the following. 
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Record 1: | NotePad.Dat holds notes of any type. 


Record 2: — States.Abr holds names of states and abbreviations. 

Record 3: | Food.Dat has nutritional information. 

Record 4: — Address.Dat has names, addresses, and phone 
numbers. 

Record 5: | Camping.Cat is a catalog of camping equipment. 

Record 6: — Scratch.Pad is for doodling and experimenting. 


Once you give a file a name, that name will remain the same unless 
you change it with the MS-DOS Rename command or a Quick- 
BASIC NAME statement. The NAME statement has the form 


NAME oldfilename AS newfilename 


where oldfilename is the current name of the file, and newfilename is 
the new name to be given to the file. 

You cannot give a file a new drive designation when renaming 
it. After you use a NAME statement, the file remains in the same 
space on the disk, but with a different name. 


Creating a Sequential File 


A simple example of a sequential file is a notepad file. Think of each 
record in the file as a 3-by-5-inch card. The records are not struc- 
tured into fields; hence, the file is free-form. On each card, you 
might have a note on the use of QuickBASIC. 

To create a file called NotePad.Dat, you must 


1. Open the file so that you can enter information into it. 
2. Enter records from the keyboard and put them into the file. 


3. Close the file after entering all the records. 
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To accomplish these steps, you will use the following QuickBASIC 
statements: 


OPEN To open a file 

LINE INPUT To obtain a record from the keyboard 
WRITE # To write the record into the file 
CLOSE To close the file 


First, create the new file and open it for output so that records can 
be written into the file. In the OPEN statement, the file is called 
NotePad.Dat and assigned the file number 1. 


OPEN 'B:NotePad.Dat" FOR OUTPUT AS #1 


Disk drive File number 


Filename 


Disk drive B is selected. If you are using a hard disk, substitute its 
letter specification in the OPEN statement. 

Note that NotePad.Dat is used as the filename. This conforms to 
conventions for variable names and line labels. QuickBASIC rec- 
ognizes NotePad.Dat and NOTEPAD.DAT as the same filename. 


р CAUTION Ifa file named NotePad.Dat already existed on the 
disk, the output mode shown in the OPEN statement would erase 
the contents of NotePad.Dat before writing any new data to it. If 
you want to add new data to the end of an existing file without 
erasing what is already in it, be sure to use the append mode in the 
OPEN statement, as described later in this chapter. 


Before you use an OPEN. ..FOR OUTPUT statement, check 
the directory of the disk to be used. Make sure you are using a new 
filename when creating a new file. The append mode is always a 
safe alternative to the output mode, since it also allows you to create 
a file. If a ile named NotePad.Dat does not reside on disk, opening 
it in the append mode creates a new file with that name. 
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The LINE INPUT statement is well suited for entering records 
in an unstructured sequential data file. LINE INPUT allows you to 
enter up to 255 characters, including commas. When you press 
ENTER, the information is stored as a single string (one record). The 
LINE INPUT statement looks like this: 


LINE INPUT “> "; record$ 


The WRITE # statement is used to write one string as one 
record to a file. 


WRITE #1, record$ 


File number 


The WRITE £ statement inserts commas between fields as they are 
written to the file. It also encloses strings in quotation marks. 
Finally, it puts carriage-return and line-feed characters after the 
last field in a record. In the next chapter, you will see another way 
to write information to a file: using the PRINT # statement. 

After entering all records from the keyboard and writing them 
to a file, you close the file. 

The following statement closes file number 1, the only file used 
in the program in the next section to create the NotePad file: 


CLOSE #1 


A Program To Create 
the NotePad File 


Program 6-1, CREATE A FILE, consists of a main program and a 
subprogram. The main program is short because it does only two 
things: It calls the subprogram (where the file is created), and it 
ends the program. 
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DECLARE SUB CreateFile () 

REM ** CREATE A FILE ** 

' Using QuickBASIC, Chapter 6 

' Microsoft QuickBASIC 4.5 File: UQBO601.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** Call File Creator, Then End ** 
CALL CreateFile 
END 


SUB CreateFile STATIC 
' Create NotePad.Dat file. Each record is a string. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = “Create a new file called NotePad.Dat.” 
Text$(3) = “Put the data disk in drive B and press any key.” 
Text$(4) = "At the prompt (>), type one record and press ENTER.” 
Text$(5) = "To end the file, press ENTER without typing data." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Wait for a keypress to begin. 
LOCATE 10, 28: PRINT "Press a key to begin." 
anykey$ = INPUT$(1) 


' Define rows 1 to 20 as a viewport for entering records. 
VIEW PRINT 1 TO 20 
CLS 2 


' Open the file NotePad.Dat on drive B for output as file #1. 
OPEN "B:NotePad.Dat" FOR OUTPUT AS #1 


' Enter records from keyboard and write to file. 
ро 

LINE INPUT "> °; record$ 

PRINT 

IF record$ = "" THEN EXIT DO 

WRITE #1, record$ 
LOOP 


' Close the file and end the subprogram. 
CLOSE #1 
END SUB 


Program 6-1. CREATE A FILE 
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REM ** CREATE A FILE ** 
' Using QuickBASIC, Chapter 6 
' Microsoft QuickBASIC 4.5 File: UQB0601.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** Call File Creator, Then End ** 
CALL CreateFile 
END 


The subprogram CreateFile creates a free-form data file to hold 
records that you enter from the keyboard. Each record is restricted 
to the number of characters allowed by the LINE INPUT state- 
ment —up to 255 characters. 

The subprogram uses the following VIEW PRINT statement to 
create a text viewport, restricting the area where output appears: 


VIEW PRINT 1 TO 20 


where | is the first line of the viewport and 20 is the last line. 

Information contained in a PRINT statement is displayed in the 
normal way if it is executed before a VIEW PRINT statement. The 
CreateFile subprogram prints the instructions for its use before a 
VIEW PRINT statement is used. The instructions are placed in a 
fixed area at the bottom of the screen. 


Viewport 


Lines 1-20 


Information in this area scrolls 


Lines 21 through 25 of the display, at the bottom of the screen, are 
outside the viewport area. These lines stay fixed on the screen and 
are not affected by lines printed in the viewport, which is set by the 
VIEW PRINT statement given earlier. 
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After the VIEW PRINT statement is executed, the CLS 2 state- 
ment clears the message “Press a key to begin” from the viewport. 
All output to the screen appears in the area defined by the topline 
(1) and bottomline (20) of the VIEW PRINT statement. 

The CreateFile subprogram opens the NotePad.Dat file for 
output on drive B. (If you are using a different disk drive to save 
files, use the appropriate drive designation.) Records are entered, 
one at a time, in a DO...LOOP using LINE INPUT and are 
written to the file by a WRITE # statement. If you press ENTER 
without entering a record at the LINE INPUT prompt (>), an exit 
is made from the loop. 


OPEN “B:NotePad.Dat” FOR OUTPUT AS #1 


DO 
LINE INPUT °> "; record$ 
PRINT 
If record$ = "" THEN EXIT DO 
WRITE @1, record$ 

LOOP 


When an exit is made from the DO. . .LOOP, the file is closed, and 
the subprogram ends. 


' Close the file and end the subprogram 
CLOSE #1 
END SUB 


Control passes back to the main program. 


Using the Sequential 
File Creator 


To use the sequential file creator, you must hook the main pro- 
gram to the subprogram. First, enter the main program. Save it to 
disk, if you wish, as UQB0601.BAS. Then, enter the subprogram 
with the following steps, using Full menus. 
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DECLARE SUB Сге: QO 

REM ин CREATE A FILE жи 

› Using QuickBASIC, Chapter 6 

* Microsoft QuickBASIC 4.5 File: UQB8GU1, BAS 


Neu SUB 


Вок < Cancel > < Нер > 


d ЕАО 


^———— HP E E 


Fi-Help  Enter-Execute — Esc-Cancel  Tab-Mext Field Arrou=Next Iten 
Figure 6-1. New SUB dialog box 
[ File Edit Uieu Search Run Debug Calls Options —— 
UQBB681 . BAS :CreateFile 


SUB CreateF ile 
END SUB 


Inned late 


| hif tiL1-MHelp? Q'6-Minduu? «2-Subs? <Ео- Вип? QU-SLbey? Jug :615 
Figure 6-2. Start and end of SUB CreateFile 
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1. Access the Edit menu and move the highlight down to the New 
SUB command. 


2. Press ENTER. A dialog box is displayed, as shown in Figure 6-1. 


3. Type the name of the subprogram, CreateFile, and press ENTER. 
The screen shown in Figure 6-2 is displayed. QuickBASIC auto- 
matically provides the opening and closing lines of the subpro- 
gram. 


4. Finish entering the first line of the subprogram: 


SUB CreateFile STATIC 


5. Enter the other lines of the subprogram: 


SUB CreateFile STATIC 
' Create NotePad.Dat file. Each record is a string. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Create a new file called NotePad.Dat." 
Text$(3) = "Put the data disk in drive B and press any key.” 
Text$(4) » "At the prompt (»), type one record and press ENTER." 
Text$(5) = "To end the file, press ENTER without typing data." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$ (row); 
NEXT row 


' Wait for a keypress to begin. 
LOCATE 10, 28: PRINT "Press a key to begin." 
anykey$ = INPUTS$(1) 


' Define rows 1 to 20 as a viewport, used for entering records. 
VIEW PRINT 1 TO 20 
CLS 2 


' Open the file NotePad.Dat on drive B for output as file wl. 
OPEN "B:NotePad.Dat" FOR OUTPUT AS #1 


' Enter records from keyboard and write to file. 
DO 


184 Using QuickBASIC 


LINE INPUT “> 7; record$ 
PRINT 
IF record$ = *"" THEN EXIT DO 
WRITE #1, record$ 

LOOP 


' Close the file and end the subprogram. 
CLOSE #1 
END SUB 


6. When you have entered the subprogram, access the File menu 
and select the Save command. The subprogram CreateFile is saved 
along with the main program as UQBO601.BAS. 


When the program has been saved, the subprogram remains on 
the screen. Access the View menu. While the highlight is on the 
SUBs command, press ENTER. The dialog box shown in Figure 6-3 
is displayed. 

From the dialog box, you can choose whether you want to view 
and edit the main program, UQB0601.BAS, or the subprogram, 


File Edit ШО Search Run Debug Calls Options 
} ЏаВ0691, BAS 
SUBs 


Choose program item to edit 


CreateF ile 


BREED REESE ERR REPRE 
BOGE1 BAS is the Main Module 


uq 
Edit in fictive < Edit in Split > < Cancel > 


< Delete > < Help > 


FisHelp  Enter-Execute — Esc-Cancel Таћ=йех Field fArrov-Next Iten 
Figure 6-3. SUBs dialog box from View menu 
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CreateFile. While the highlight is on UQB0601.BAS, press ENTER. 
QuickBASIC returns to the View window with the main program 
displayed. 

Notice the first line of the main program. QuickBASIC has 
automatically inserted the line 


DECLARE SUB CreateFile () 


The DECLARE statement allows your program to call procedures 
that are defined later. 

The main program and the subprogram are now ready to use. 
Access the Run menu; with the Start command highlighted, press 
ENTER. The directions are displayed as shown in Figure 6-4. 

Type the notes shown in Table 6-1. Press ENTER only after each 
complete record, which may continue onto more than one line. 
The length of the lines on your screen will not correspond with that 
of the lines in the table. 

When you have finished entering the notes in Table 6-1, press 
the ENTER key at the last prompt without entering text. The sub- 


Press a key to begin. 


Create a nev file called HotePad Dat. 

Put the data disk in drive B and press any key. 

At the prompt (>), type one record and press ENTER, 
To end the file, press ENTER uithout typing data. 


Figure 6-4. Opening screen for CreateFile SUB 
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Filenames in OPEN statements are string expressions. 

OPEN statements may contain letters a-z, digits 0-9, and special characters. 
Some special characters are() () © # $965 ^&!-  '/". 

The OPEN statement can also contain a disk drive specification. 

Your program can work with data files on another drive. 

An OPEN statement with FOR OUTPUT is used to create a new file. 
Use APPEND in an OPEN statement to add records to an existing file. 
APPEND adds records to the end of the file. 

Use the WRITE # statement to write a record to an open file. 

WRITE # encloses the record in quotation marks. 

Use LINE INPUT # to enter a string that contains commas. 

INPUT # reads characters in a sequential file. 

Use the CLOSE statement within a program to close a file. 

CLOSE frees the file number for use by another OPEN statement. 


Table 6-1. Notes to Enter in CreateFile 


program then leaves the DO. . .LOOP and closes the file. Control 
passes back to the driver program, which is considered the main 
module. Execution ends there with the END statement. 

Files are created to be used. The next step is to write a subpro- 
gram that will read the records from the data file that has been 
created. 


Reading the NotePad Fiie 


Once again, a short main program is used to access a new subpro- 
gram, called ScanFile. The main program calls the subprogram 
and ends the program. Enter the main program that follows and 
save it to the same disk as Program 6-1. Name it UQB0602.BAS. 


REM ** SCAN A FILE яж 
' Using QuickBASIC, Chapter 6 
' Microsoft QuickBASIC 4.5 File: UQB0602.BAS 
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REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** CALL File Scanner, Then End ** 
CALL ScanFile 
END 


The subprogram ScanFile prints instructions on lines 21 through 
25 in the display and sets up a viewport (lines 1 through 20) for 
scanning the file. The subprogram then opens NotePad.Dat (the 
data file previously created) for input as file number 1. 


OPEN "B:NotePad.Dat" FOR INPUT AS «1 


LINE INPUT # is used in a DO. . .LOOP to read one record at a 
time from the file. The records are printed one at a time on the 
screen. Since a WRITE # statement was used to create the file, the 
quotation marks at the beginning and end of each record print as 
part of each record. Press any key except Q to scan the next record. 

The DO. . .LOOP has two possible exits. To force an exit, press 
the Q key. When all records have been read and you press a key 
other than Q, the end-of-file (EOF) marker is encountered; this will 
cause an exit because of the DO UNTIL ЕОЕ(1) statement at the 
top of the loop. 


DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASE$(nextkey$) = "Q" THEN EXIT DO 
LOOP 


When an exit is made from the loop, the file is closed and the 
subprogram ends. Control passes back to the main program, which 
also ends. 
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Using the Sequential 
Fiie Scanner 


If you have not yet entered the main program, do so now. If you 
have entered the main program and it is not in the View window, 
access it from the Open Program command in the File menu. 
When the main program is in the View window, you are ready to 
enter the subprogram. 

Select the New SUB command from the Edit menu. Press ENTER, 
and the dialog box shown in Figure 6-1 appears. Type ScanFile, 
and press ENTER. A mostly blank screen appears, with the start and 
end lines of the new subprogram near the top of the screen. 


SUB ScanFile_ 
END SUB 


Type in the rest of the ScanFile subprogram, as shown below. 
When you have finished, use the Save command in the File menu 
to save the ScanFile subprogram along with the main program. 


SUB ScanFile STATIC 
' Scan the NotePad.Dat File, one record at a time. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Scan the NotePad file, one record at a time." 
Text$(3) = "Put the data disk in drive B and press any key." 
Text$(4) = "Starts with the lst record in the viewport." 
Text$(5) = “Press space bar to get next record, Q to quit." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport, used for scanning records. 
VIEW PRINT 1 TO 20 


' Wait for a keypress to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 "Clears only viewport 


' Open the file NotePad.Dat on drive B for input as file #1. 
OPEN "B:NotePad.Dat" FOR INPUT AS #1 
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' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT *1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUT$(1) 

IF UCASES$(nextkey$) = "0" THEN EXIT DO 
LOOP 


' Close the file and end the subprogram 
CLOSE #1 
END SUB 


This completes Program 6-2, SCAN A FILE. 

After saving the program, access the Start command in the Run 
menu, and press ENTER. The instructions are displayed along with 
the prompt "Press a key to begin." Press any key to display the first 
record on the screen as shown in Figure 6-5. 

Notice the quotation marks. When LINE INPUT # is used to 
read a record from a file, the quotation marks are included as part 
of the record. 


"File names in OPEN statements are string expressions," 


Scan the NotePad file, one record at a tine, 
Put the data disk in drive B and press any key. 
Starts uith the 15% record in the vlevport. 
Press space bar to get next record, Q to quit. 


Flgure 6-5. Opening screen of ScanFile SUB 
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DECLARE SUB ScanFile () 

REM жж SCAN А FILE ** 

' Using QuickBASIC, Chapter 6 

' Microsoft QuickBASIC 4.5 File: UQB0602.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** CALL File Scanner, Then End ** 
CALL ScanFile 
END 


SUB ScanFile STATIC 
' Scan the NotePad.Dat File, one record at a time. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 


Text$(2) = "Scan the NotePad file, one record at a time." 
Text$(3) = "Put the data disk in drive B and press any key." 
Text$(4) = "Starts with the lst record in the viewport.” 
Text$(5) » "Press space bar to get next record, Q to quit." 
CLS 


FOR row = 1 TO 5 
LOCATE row * 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for scanning records. 
VIEM PRINT 1 TO 20 


' Mait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

апукеу$ = INPUT$(1) 

CLS 2 ‘Clears only viewport 


' Open the file NotePad.Dat on drive B for input as file #1. 
OPEN "B:NotePad.Dat" FOR INPUT AS #1 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF ЏСАЅЕ$ (пехскеу$) = "Q" THEN EXIT DO 
LOOP 


' Close the file and end the subprogram 
CLOSE #1 
END SUB 


Program 6-2. SCAN A FILE ' 
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Each time you press a key other than Q, a new record is added 
to the display. When you have scanned as many records as you 
want, press Q to quit, or keep going until you have read all the 
records; an end-of-file (EOF) condition will end the DO. . .LOOP. 

You now have programs to create and to scan an unstructured 
sequential data file. Next, you need a program to send the records 
to your printer to make a copy on paper. 


Printing the NotePad File 


The main program to output the records of the NotePad file to 
your printer is much like that used in the first two programs in this 
chapter. Enter the main program as follows, and save it as 
UQB0603.BAS: 


REM ** PRINT A FILE ** 
' Using QuickBASIC, Chapter 6 
' Microsoft QuickBASIC 4.5 File: UQB0603.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT А-7 


REM ** CALL Print SUB, Then End 
CALL PrintFile 
END 


Using the Sequential 
File Printer 


The subprogram PrintFile does not stop for a keypress after print- 
ing each record. It keeps printing until the end ofthe file is reached 
or until уси press the Q key to quit. Enter the subprogram in the 
usual manner and save it, along with the main program, to the 
same disk on which the previous data file subprograms were saved. 

Study Program 6-3, PRINT A FILE. Notice the similarities and 
differences between it and Program 6-2. An INPUT # statement is 
used instead of LINE INPUT #. When an INPUT # statement is 
used, the printed record does not include the opening and closing 
quotation marks. 
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DECLARE SUB PrintFile () 

REM ** PRINT A FILE ** 

' Using QuickBASIC, Chapter 6 

' Microsoft QuickBASIC 4.5 File: UQB0603.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** CALL Print SUB, Then End ** 
CALL PrintFile 
END 


SUB PrintFile STATIC 
' Print NotePad.Dat File 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) » "Print the NotePad File to the printer." 
Text$(3) = "Put the data disk in drive B.” 
Text$(4) = "Make sure the printer is ready. Press any key." 
Text$(5) = "To interrupt, hold down the Q key.” 
CLS 
FOR row = 1 TO 5 
LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport. 
' Records displayed during printing. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 ‘Clears only viewport 


' Open the file NotePad.Dat on drive B for input as file #1. 
OPEN "B:NotePad.Dat" FOR INPUT AS #1 


' Read records, print to screen, print to printer. 
DO UNTIL EOF(1) 
kbd$ = INKEYS$: IF UCASES(kbd$) = 'Q* THEN EXIT DO 
INPUT *1, record$ 
PRINT record$ 
LPRINT record$ 
LPRINT 
LOOP 


' Close file and end subprogram 
CLOSE *1 
END SUB 


Program 6-3. PRINT A FILE 
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р CAUTION Ве sure your printer is on and ready to print before 
you run the program. 


When your printer is ready, access the Start command of the Run 
menu, and press ENTER. Notice that the records are printed on the 
screen as well as being sent to the printer. The files are printed as 
shown in Figure 6-6. 


Appending the NotePad File 


As you learn new things about QuickBASIC, you will probably want 
to add notes to the NotePad file. You can accomplish this by using 
the append mode in an OPEN statement. 


OPEN "B:NotePad.Dat" FOR APPEND AS #1 


Filenames in OPEN statements are string expressions. 

OPEN statements may contain letters a-z, digits 0-9, and special characters. 
Some special characters аге () () @ # $?765^& !- _'/". 

The OPEN statement can also contain a disk drive specification. 

Your program can work with data files on another drive. 

An OPEN statement with FOR OUTPUT is used to create a new file. 
Use APPEND in an OPEN statement to add records to an existing file. 
APPEND adds records to the end of the file. 

Use the WRITE # statement to write a record to an open file. 

WRITE # encloses the record in quotation marks. 

Use LINE INPUT # to enter a string that contains commas. 

INPUT # reads characters in a sequential file. 

Use the CLOSE statement within a program to close a file. 

CLOSE frees the file number for use by another OPEN statement. 


Figure 6-6. Printout from PrintFile SUB 
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The append mode will automatically set the file's pointer to the end 
of the NotePad file so that the records you enter will be added to 
the end of the file. 


First record Note #1 


Last Record Note @n 


Neu Record File pointer at next 


available record 


The main program is similar to the earlier ones. The subprogram 
AppendFile is similar to the CreateFile subprogram of Program 
6-1. In fact, either program can be used to create a new file. 


Using Sequential Flie 
Append 


Enter only the main program of Program 6-4, APPEND TO A 
FILE. Save it as UQB0604.BAS. Then use the New SUB command 
in the Edit menu to enter the subprogram. Name the subprogram 
AppendFile. Save it along with the main program with the Save 
command in the File menu. 

Run the program with the Start command in the Run menu. 
The directions are displayed at the bottom of the screen. At the 
center of the viewport, the message "Press a key to begin" is 
printed. When you press a key, the viewport is cleared, and a 
right-pointing arrowhead (>) is displayed as a prompt to add a new 
record. Type in any new notes. When you have added all the notes 
you want, press ENTER at the input prompt without entering any 
text. 

With the completion of Program 6-4, you have the following 
programs to manipulate text in an unstructured sequential file: 


To create a file: Program 6-1, CREATE A FILE 
To scan a file: Program 6-2, SCAN A FILE 
To print a file: Program 6-3, PRINT A FILE 


To append to a file: Program 6-4, APPEND TO A FILE 
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DECLARE SUB AppendFile () 

REM ** APPEND TO A FILE ** 

' Using QuickBASIC, Chapter 6 

' Microsoft QuickBASIC 4.5 File: UQBO604.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT А-2 


REM ** CALL AppendFile SUB, Then End ** 
CALL AppendFile 
END 


SUB AppendFile STATIC 
' Append information to the NotePad.Dat file. 


' Put instructions in lines 21 to 25 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Append records to the NotePad file." 
Text$(3) = "Put data disk in drive B and press any key." 
Text$(4) = “At the prompt (>), type one record and press the ENTER key." 
Text$(5) = "To end the file, press ENTER without typing data." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for appending records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUT$(1) 

CLS 2 "Clears only viewport 


' Open the file NotePad.Dat on drive B for append as file #1. 
OPEN "B:NotePad.Dat" FOR APPEND AS #1 


' Enter records from keyboard and append to file. 
DO 

LINE INPUT “> "; records 

PRINT 

IF record$ = "" THEN EXIT DO 

WRITE #1, record$ 
LOOP 


' Close the file and end the subprogram. 


CLOSE #1 
END SUB 


Program 6-4. APPEND TO A FILE 
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Each program performs a distinct function; however, the pro- 
grams are related in that they all work with the same disk file, 
NotePad.Dat. It would be convenient to tie them together into a 
single program that provides a choice of which function to per- 
form. The next section describes one way to do this. 


Making an Integrated NotePad 
File Program 


You have learned how to use many tools in earlier chapters. Com- 
bining the four programs you created in this chapter will give you 
a chance to exercise some of the editing skills you learned in 
Chapter 4. To create an integrated notepad program, you need a 
main driver program and the four subprograms used in Programs 
6-1, 6-2, 6-3, and 6-4. 

Each of these four programs has a short main program that calls 
the necessary subprogram. The main program for an integrated 
notepad will be a little longer. You need a way to make a selection 
from a list of functions that the program can perform. A menu is 
a good way to display the selections. Items on the menu are 


Create a File 
Scan a File 
Print a File 


Append to a File 
Quit 


This simple menu of five items can be displayed with the following 
strings: 


Мепи$(1) = "Create a File" 
Мепи$ (2) = "Scan a File" 
Menu$(3) = "Print a File" 
Menu$(4) = "Append to a File" 
Menu$(5) = “Quit” 
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You can print the text and draw a simple border around the 
selections, or if you wish, you can get fancy and add color and even 
graphics. 

A short message should tell how to use the menu. 


Menu$(6) = “Type first letter of your choice (C, S, P, A, or Q)." 


The selected letter should call the appropriate subprogram. Quick- 
BASIC's SELECT CASE structure is ideal for this task. 


' Make choice 
pictkey$ = UCASES(INPUT$(1)) 
SELECT CASE pictkey$ 
CASE "C" 
CALL CreateFile 
CASE "5" 
CALL ScanFile 
CASE "P" 
CALL PrintFile 
CASE “А” 
CALL AppendFile 
CASE "Q* 
END 
CASE ELSE 
LOCATE 21, 5: PRINT "Entry not a C, S, P, A, or Q.” 
LOCATE 22, 5: PRINT "Press any key to try again." 
reptkey$ = INPUT$(1) 
END SELECT 


The menu and SELECT CASE compose the major part of the main 
program, shown here: 


REM ** NOTEPAD WITH MENU ** 
' Using QuickBASIC, Chapter 6 
' Microsoft QuickBASIC 4.5 File: UQB0605.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM ** SET UP MENU яж 
DO 
' Menu Items 
Menu$(1) = “Create a File" 


Menu$(2) = "Scan a File” 
Menu$(3) = "Print a File’ 
Menu$(4) = "Append to a File" 
Menu$(5) = *Quit* 
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Menu$(6) = “Type first letter of choice (C, S, P, A, or Q)" 


' Print menu 
VIEW PRINT 1 TO 25: CLS 
FOR row = 1 TO 5 
LOCATE row + 5, 25: PRINT Menu$(row); 
NEXT row 
LOCATE 21, 5: PRINT Menu$(6) 
LOCATE 4, 20: PRINT CHR$(218); STRINGS(29, 196); CHR$(191); 
LOCATE 12, 20: PRINT CHR$(192); STRINGS(29, 196); CHR$(217); 
FOR row = 5 TO 11 
LOCATE row, 20: PRINT CHR$(179); 
LOCATE row, 50: PRINT CHRS$(179); 
NEXT row 


' Make choice 
pictkey$ = UCASES(INPUT$(1)) 
SELECT CASE pictkey$ 
CASE "С" 
CALL CreateFile 
CASE "S" 
CALL ScanFile 
CASE "P" 
CALL PrintFile 
CASE "A" 
CALL AppendFile 
CASE "Q" 
END 
CASE ELSE 
LOCATE 21, 5: PRINT "Entry not a C, S, P, A, or Q." 
LOCATE 22, 5: PRINT "Press any key to try again." 
reptkey$ = INPUT$(1) 
END SELECT 
CLS 2 
LOOP 
END 


Enter the main program, and save it as UQB0605.BAS. 


Putting the Pieces 
Together 


After saving the program, you will need to merge the previous 
programs (UQB0601.BAS, UQB0602.BAS, UQB0603.BAS, and 
UQB0604.BAS) and perform some editing operations. The sub- 
programs CreateFile, ScanFile, PrintFile, and AppendFile are 
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needed for the integrated program; however, the individual main 
programs attached to them need to be deleted. The steps to be 
performed for each of the four programs are 


1. Merge the program with the new main program. 


2. Move the DECLARE statement of the merged program to the 
top of the integrated main program. 


3. Delete the short main program that previously called the sub- 
program. 


Merging CREATE A 
FILE into NOTEPAD 
WITH MENU 


With the main program of UQB0605.BAS in the View window, 
move the cursor down to just below the last line of the program. 


END SELECT 
CLS 2 

LOOP 

END 


- «4——————————— cursor 


This is where UQB0601.BAS will be merged into UQB0605.BAS. 
Access the Merge command in the File menu, and press ENTER. A 
dialog box appears, as shown in Figure 6-7. Press TAB to move the 
cursor to the Files box. Press the DOWN ARROW key to highlight the 
UQBO0601.BAS filename; then press ENTER. UQBO0601.BAS is 
merged at the bottom of the main program, UQB0605.BAS. 

Now it's time to apply the editing skills you acquired in Chapter 
4. Notice that the DECLARE statement for the subprogram is 
below the main program. 
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ГИ Edit Vieu Search Run Debug Calls Optio 


B^ 
Files Dirs/Drives 


UQB8601 , BAS 
UQB8682 , BAS 
UQBOGO3 , BAS 
UQE8604 , BAS 
0080605 , BAS 


A 


Tab-Mext Field —firrou-Mext [ten 
Figure 6-7. Merge dialog box 


END SELECT 

CLS 2 
LOOP 
END DECLARE statement in 
DECLARE SUB CreateFile () 4«4&—— —— the wrong place 


'The DECLARE statement needs to be moved to the top of the file. 
Do you remember the Cut command in the Edit menu from Chap- 
ter 4? The Cut command moves the selected text to the Clipboard. 
If you remember how, use it to cut the DECLARE statement, and 
then proceed to step 3 below. 

If you don't remember how to use the Cut command, follow 
these steps: 
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1. Move the cursor to the letter D ofthe DECLARE statement, and 
press the SHIFT* DOWN ARROW key combination to select the statement. 


DECLARE SUB CreateFile () 


2. With the statement highlighted, go to the Edit menu. Select the 
Cut command, and press ENTER. Presto! The line is gone from the 
program. It has been magically transported to the Clipboard, 
where you can’t see it. 


3. Press CTRL+HOME to move to the top of the file (the first line of the 
main program). 


REM ** NOTEPAD WITH MENU ** 
' Using QuickBASIC, Chapter 6 


4. Access the Paste command in the Edit menu, and press ENTER. 
Presto again! The DECLARE statement is transported from the 
Clipboard to the top line of the main program. 


DECLARE SUB CreateFile () 
REM ** NOTEPAD WITH MENU ** 
' Using QuickBASIC, Chapter 6 


One more editing task remains: to delete the merged main pro- 
gram of UQB0601.BAS. Use the PGDN key to bring the beginning of 
the merged program into view. Use the arrow keys to move the 
cursor just below the R of "REM ** CREATE A FILE *»*." Then, 
press the SHIFT« DOWN ARROW key combination until the following lines 
are highlighted. 
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REM ** CREATE A FILE ** 
' Using QuickBASIC, Chapter 6 
' Microsoft QuickBASIC 4.5 File: UQB0605.BAS 


REM ** Set Default Variable Type to Integer ** 
DEFINT A-Z 


REM жж CALL File Creator, Then End **« 
CALL Create File 
END 


Go to the Edit menu once more, select the Clear command, and 
press ENTER. Zap! The lines are gone from the display. They did not 
go to the Clipboard this time; they are gone forever. 

Repeat the process for each of the other three programs— 
UQB0602.BAS, UQB0603.BAS, and UQB0604.BAS: 


1. Merge the program. 
2. Move the DECLARE statement to the top of the file. 


3. Delete the balance of the merged program. 


When you finish these steps for each program, you will have the 
complete Program 6-5, NOTEPAD WITH MENU. The four nec- 
essary subprograms are now included. Use Save in the File menu 
to save the complete package. 


Review 


This chapter presented a general discussion of data files followed 
by specific information on sequential data files. The major portion 
of the chapter was devoted to unstructured sequential data files. 

Detailed information was given on the construction of subpro- 
grams to perform four functions of an unstructured sequential 
data file called NotePad. The functions were 
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B Create the NotePad file. 

B Scan records in the NotePad file. 

@ Print records in the NotePad file. 
m Append notes to the NotePad file. 


The chapter concluded with the use of editing skills to merge the 
four programs containing the subprograms into one integrated 
program. The integrated program performs any of the four func- 
tions, which can be selected from a menu. 


DECLARE SUB AppendFile () 

DECLARE SUB PrintFile () 

DECLARE SUB ScanFile () 

DECLARE SUB CreateFile () 

REM ** NOTEPAD WITH MENU ** 

' Using QuickBASIC, Chapter 6 

' Microsoft QuickBASIC 4.5 File: UQB0605.BAS 


REM xx Set Default Variable Type to Integer ** 
DEFINT А-2 


REM ** Set up Menu, Make Choice ** 
DO 
' Menu Items 
Menu$(1) = "Create a File" 
Menu$(2) = "Scan a File” 
Menu$(3) = "Print a File" 
Menu$(4) = “Append to a File” 
Menu$(5) = “Quit” 
Menu$(6) = “Type first letter of choice (C, S, P, A, or Q)” 


' Print menu 
VIEM PRINT 1 TO 25: CLS 
FOR row = 1 TO 5 
LOCATE row + 5, 25: PRINT MenuS$(row); 
NEXT row 
LOCATE 21, 5: PRINT Menu$(6) 
LOCATE 4, 20: PRINT CHR$(218); STRING$(29, 196); CHRS(191); 
LOCATE 12, 20: PRINT CHR$(192); STRING$(29, 196); CHRS$(217); 
FOR row x 5 TO 11 
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LOCATE row, 20: PRINT CHR$(179); 
LOCATE row, 50: PRINT CHR$(179); 
NEXT row 
' Make choice 
pictkey$ = UCASES(INPUT$(1)) 
SELECT CASE pictkey$ 
CASE "C" 
CALL CreateFile 
CASE "'S* 
CALL ScanFile 
CASE "Р" 
CALL PrintFile 
CASE "A" 
CALL AppendFile 
CASE 'Q* 
END 
CASE ELSE 
LOCATE 21, 5: PRINT “Entry not a C, S, P, A, or Q.” 
LOCATE 22, 5: PRINT "Press any key to try again." 
reptkey$ = INPUT$(1) 
END SELECT 
CLS 2 
LOOP 
END 


SUB AppendFile STATIC 
' Append information to the NotePad.Dat file. 


' Put instructions in lines 21 to 25 
Text$(1) = STRING$(74, 196) 
Text$(2) » "Append records to the NotePad file." 
Text$(3) = "Put data disk in drive B and press any key." 
Text$(4) = “At the prompt (>), type one record and press the ENTER key." 
Text$(5) = "To end the file, press ENTER without typing data." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for appending records. 
VIEM PRINT 1 TO 20 


' Wait for a key press to begin. 


LOCATE 10, 28: PRINT "Press a key to begin." 
anykey$ = INPUTS(1) 


Program 6-5. NOTE PAD WITH MENU (continued) 
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CLS 2 'Clears only viewport 


' Open the file NotePad.Dat on drive B for append as file #1. 
OPEN "B:NotePad.Dat" FOR APPEND AS «1 


' Enter records from keyboard and append to file. 
DO 

LINE INPUT "> "; record$ 

PRINT 

IF record$ = "" THEN EXIT DO 

WRITE #1, record$ 
LOOP 


' Close the file and end the subprogram. 
CLOSE #1 
END SUB 


SUB CreateFile STATIC 
' Create NotePad.Dat file. Each record is a string. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Create a new file called NotePad.Dat." 
Text$(3) = "Put the data disk in drive B and press any key.” 
Text$(4) = “At the prompt (>), type one record and press ENTER." 
Text$(5) » *To end the file, press ENTER without typing data." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for entering records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 20: PRINT "Press a key to begin." 

anykey$ = INPUT$(1) 

CLS 2 "Clears only viewport 


' Open the file NotePad.Dat on drive B for output as file #1. 
OPEN “B:NotePad.Dat” FOR OUTPUT AS #1 


' Enter records from keyboard and write to file. 
DO 

LINE INPUT "> "; record$ 

PRINT 
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IF recordS = ** THEN EXIT DO 
WRITE *1, record$ 
LOOP 


' Close the file and end the subprogram. 
CLOSE *1 
END SUB 


SUB PrintFile STATIC 
' Print NotePad.Dat File 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Print the NotePad File to the printer." 
Text$(3) = "Put the data disk in drive B." 
Text$(4) = “Make sure the printer is ready. Press any key." 
Text$(5) =» "To interrupt, hold down the Q key." 
CLS 
FOR row = 1 TO 5 
LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport. 
' Records displayed during printing. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 Clears only viewport 


' Open the file NotePad.Dat on drive B for input as file #1. 
OPEN "B:NotePad.Dat" FOR INPUT AS #1 


' Read records, print to screen, print to printer. 
DO UNTIL EOF(1) 
kbd$ = INKEY$: IF UCASES(kbd$) = “Q” THEN EXIT DO 
INPUT *1, record$ 
PRINT record$ 
LPRINT record$ 
LPRINT 
LOOP 


' Close file and end subprogram 
CLOSE #1 


Program 6-5. NOTEPAD WITH MENU (continued) 
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END SUB 


SUB ScanFile STATIC 
' Scan the NotePad.Dat File, one record at a time. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 
Text$(2) = "Scan the NotePad file, one record at a time." 
Text$(3) » "Put the data disk in drive B and press any key." 
Text$(4) = "Starts with the lst record in the viewport.” 
Text$(5) = "Press space bar to get next record, Q to quit." 
CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$ (row); 
NEXT row 


' Define rows 1 to 20 as a viewport for scanning records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press any key to begin." 

anykey$ = INPUTS(1) 

CLS 2 ‘Clears only viewport 


' Open the file NotePad.Dat on drive B for input as file #1. 
OPEN "B:NotePad.Dat" FOR INPUT AS #1 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASE$(nextkey$) = "Q” THEN EXIT DO 
LOOP 


' Close the file and end the subprogram 


CLOSE *1 
END SUB 
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Sequential 
Structured Files 


The preceding chapter discussed and demonstrated the use of 
sequential files that are not structured; that is, each record in a file 
is a single string. This chapter discusses structured sequential files, 
in which each record consists of two or more fields. You will use 
several file statements and functions, including 


m Opening and closing files: OPEN CLOSE 

m Putting information into a file: PRINT # WRITE # 

m Reading information from a file: INPUT # LINE INPUT # 
B Getting the length of a file: LOF 

The chapter begins with a simple file in which each record consists 
of two fieids, both strings. A program is shown to create and scan 


this file. Then three variations illustrate different ways of reading 
information from a structured file. The chapter concludes with 
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some short programs that you can experiment with to learn more 
about how output statements send information to data files and 
how input statements receive information from data files. 


States and Abbreviations 


A good sequential file application is a program to find the two- 
letter postal abbreviation for any state or territory of the United 
States. The file is short, and the information is not likely to change. 
Program 7-1, STATES AND ABBREVIATIONS, creates and 
scans a sequential file of states and territories along with their 
two-letter postal abbreviations. Each record has two fields: 


State$ Name of a state or territory, a variable-length field 
ranging from 4 characters (for example, Iowa) to 
30 characters (Federated States of Micronesia) 

Abbr$ Postal abbreviation, a fixed-length field 2 charac- 
ters long (for example, IA) 


The information to be put into the file is in DATA statements in the 
main program: 


DATA Alabama,AL, Alaska,AK, American Samoa,AS 
DATA Arizona,AZ, Arkansas,AR, California, CA 
DATA Colorado,CO, Connecticut,CT, Delaware,DE 


DATA Wisconsin,WI, Wyoming,WY 
DATA End of data,ZZ 


If you enter this program, feel free to use only part of the database, 
perhaps only three or four DATA statements — the ones you want. 


However, be sure to include the last DATA statement: 


DATA End of data,ZZ 
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DECLARE SUB ScanFile () 

REM ** STATES AND ABBREVIATIONS - CREATE & PROOF FILE ** 
' Using QuickBASIC, Chapter 7 

' Microsoft QuickBASIC 4.5 File: UQB0701.BAS 


REM ** Create the Fíle ** 

' Create StateAbr.Dat file with state names and abbreviations 
' Sequential file with two fields: State$, Abbr$ 

CLS : DEFINT А-2 | 


OPEN “B:StateAbr.Dat” FOR OUTPUT AS #1 


ро 
READ State$, Abbr$ 'Read data for one record. 
IF Abbr$ = "22" THEN EXIT DO ‘Exit on end of data record. 
WRITE el, State$, Abbr$ 'Print one record to file. 

LOOP 

CLOSE #1 


DATA Alabama,AL, Alaska,AK, American Samoa,AS 

DATA Arizona,AZ, Arkansas,AR, California,CA 

DATA Colorado,CO, Connecticut,CT, Delaware,DE 

DATA District of Columbia,DC, Federated States of Micronesia,TT 
DATA Florida,FL, Georgia,GA, Guam,GU 

DATA Hawaii,HI, Idaho,ID, Illinois,IL 

DATA Indiana,IN, Iowa,IA, Kansas,KS 

DATA Kentucky,KY, Louisiana,LA, Maine,ME 

DATA Mariana Islands,CM, Marshall Islands,TT, Maryland,MD 
DATA Massachusetts,MA, Michigan,MI, Micronesia,TT 

DATA Minnesota,MN, Mississippi,MS, Missouri,MO 

DATA Montana,MT, Nebraska,NE, Nevada,NV 

DATA New Hampshire,NH, New Jersey,NJ, New Mexico,NM 
DATA New York,NY, North Carolina,NC, North Dakota,ND 
DATA Northern Mariana Islands,CM, Ohio,OH, Oklahoma,OK 
DATA Oregon,OR, Palau,TT, Pennsylvania,PA 

DATA Puerto Rico,PR, Rhode Island,RI, South Carolina,SC 
DATA South Dakota,SD, Tennessee,TN, Texas,TX 

DATA Utah,UT, Vermont,VT, Virgin Islands,VI 

DATA Virginia,VA, Washington,WA, West Virginia,WV 

DATA Wisconsin,WI, Wyoming,WY 

DATA End of data,ZZ 


REM ** Scan the File & Proof it, Then End 
CALL ScanFile 
END 


SUB ScanFile 

' Scan the StateAbr.Dat file, one record at a time. 
' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 


Program 7-1. STATES AND ABBREVIATIONS - CREATE & PROOF FILE 
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Text$(2) = "Scan the States & Abbreviations file.” 
Text$(3) = “Put the data disk in Drive В." 
Text$(4) = “Press a key to begin. One record appears.” 
Text$(5) = "Press space bar to get next record, Q to quit.’ 
CLS 
FOR row » 1 TO 5 
LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport to scan records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

PRINT "Press a key to begin." 

anykey$ = INPUT$(1) 

CLS 2 ‘Clears only viewport 


' Open file StateAbr.Dat on drive B for input as file #1. 
OPEN "B:StateAbr.Dat^ FOR INPUT AS #1 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT 9*1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASES(nextkey$) = “Q” THEN EXIT DO 
LOOP 


' Close the file and the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE al 

END SUB 


Program 7-1. STATES AND ABBREVIATIONS - CREATE & PROOF FILE 
(continued) 


Program 7-1 creates a file by reading records from DATA state- 
ments and printing them to the file. This is done in a DO. ..LOOP 
structure that terminates after reading the fictitious state and ab- 
breviation “End of data,ZZ.” The DO. . .LOOP is shown below: 


DO 
READ StateS$,Abbr ' Read data for one record 
IF Abbr$ = "ZZ" THEN EXIT DO ' Exit on end of data record 
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WRITE #1, State$, Abbr$ ' Print one record to file 
LOOP 


The name of the state or territory is assigned to the variable S/atef. 
The abbreviation is assigned to Abbr$. The values of the two vari- 
ables are read from DATA statements and written to the file as a 
single record with two fields, State$ and Abbr$. 

Remember, the WRITE £ statement, shown below, inserts com- 
mas between fields as they are written to the file. It also encloses 
strings in quotation marks. Finally, it places carriage-return and 
line-feed characters after the last field in a record. 


WRITE 1, State$, Abbr$ 


Write a record The record consists of 
to file opened as #1 these two fields 


Therefore, in the file created by Program 7-1, one record consists 
of the following: 


@ The value of State$, enclosed in quotation marks 
Ш А comma 
m The value of Abbr$, enclosed in quotation marks 


W Carriage-return and line-feed characters to mark the end of the 
record 


You will see the strings enclosed in quotation marks and the 
comma between the fields when you run Program 7-1 and scan the 
file. 

After reading the records and writing them to the file, the 
program calls the ScanFile subprogram, which appears as shown in 
Figure 7-1. 

Press any key to begin, and then scan and proofread the file. 
Figure 7-2 shows a proofreading session in progress, with the first 
nine records on the screen. 
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Press a key to begin 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-1. Start of ScanFile subprogram 


The subprogram ScanFile reads a complete record composed of 
both fields (State$, Abbr$) with a LINE INPUT # statement and 
prints them as a single string (record$): 


LINE INPUT #1, recordS 
PRINT record$ 


The LINE INPUT # statement reads everything, including quo- 
tation marks, until it encounters the carriage-return and line-feed 
characters that mark the end ofa record. Therefore, when you scan 
the file, you will see the quotation marks and the comma inserted 
by the WRITE # statement in creating the file. That is, you will see 
an image of the record as it exists in the file. 

Continue pressing the SPACEBAR, and new states or territories and 
their abbreviations appear on the screen. When the viewport is full, 
the next press of the SPACEBAR will scroll the text in the viewport up 


Sequential Structured Files 215 


"Alabama","AL" 
"Alaska", “AR” 
"American Samoa","AS" 
“Arizona”, "А2" 
"Arkansas" ,"AR* 
"California","CA" 


"Colorado","CO" 


"Connecticut^,"CT" 


^Delaware","DE" 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-2. Proofreading session started 


to make room for the new data. The instructions remain fixed at 
the bottom of the screen. Only text in the viewport scrolls. The end 
of the file is reached when "Wyoming" appears on the screen, as 
shown in Figure 7-3. 

If you press either the SPACEBAR or the Q key, the program ends. 
The screen is clear except for the message "Press any key to con- 
tinue." Press any key, and you return to the Edit screen. 

Now change two lines in the DO. . .LOOP in the ScanFile sub- 
program so that a record will be read as two fields by an INPUT # 
statement and printed to the screen as two separate strings: 


Original DO...LOOP 


'Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT 41, гесогӣ$ 

PRINT record$ 

PRINT 
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*Texas","TX 

“Utah”, "UT" 

"Vermont" ,"VT* 
"Virgin Islands","VI" 
"Virginia","VA* 


“Washington”, “WA” 


"West Virginia’, "WV" 


“Wisconsin”, “WL” 
“Wyoming”, "МҮ" 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-3. End of ScanFile 


nextkey$ = INPUT$(1) 
IF UCASES(nextkey$) = "0" THEN EXIT DO 
LOOP 


Modified DO...LOOP 


'Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

INPUT #1, State$, Abbr$ 

PRINT State$, Abbr$ 

PRINT 

nextkey$ = INPUTS$(1) 

IF UCASES(nextkey$) = 'Q" THEN EXIT DO 
LOOP 


The INPUT # statement will read the first field of the record as the 
value of State$ and the second field as the value of Abbr$. Remem- 
ber that the two fields are separated by a comma in the record. The 
INPUT # statement recognizes this comma as a field separator. 
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However, it doesn't include the comma or the quotation marks 
when assigning a value to a variable. 

Figure 7-4 shows the first nine states and their abbreviations 
from a run of the modified program. Compare this with the output 
of Program 7-1 shown in Figure 7-2. Note that, because the PRINT 
# statement uses comma spacing in printing to the screen, the 
abbreviation is printed in a different print zone than the name of 
the state. 

Change the PRINT statement as shown in the following DO. . . 
LOOP: 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

INPUT #1, State$, Abbr$ 

PRINT State$; Abbr$ 

PRINT 

nextkey$ = INPUTS$(1) 

IF UCASES(nextkey$) = "0" THEN EXIT DO 
LOOP 


Alabama AL 
Alaska AK 
American Samoa 
Arizona 

Arkansas 
California 
Colorado 
Connecticut 


Delaware DE 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-4. Start of modified ScanFile 
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Run the modified program. The first nine records printed by the 
modified program are shown in Figure 7-5. Note that no spaces are 
printed between the state and its abbreviation. 

One more variation: Use "TAB" to print the states and abbre- 
viations in neat columns. Change the DO. . .LOOP to 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

INPUT #1, State$, Abbr$ 

PRINT State$; TAB(35); AbbrS 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASES$(nextkey$) = 'Q* THEN EXIT DO 
LOOP 


The TAB(35) function causes the printing of the abbreviation to 
begin at column 35. Remember, the longest name is 30 characters. 
The names and their abbreviations are printed in separate col- 
umns, as shown in Figure 7-6. 


AlabamaAL 
AlaskaAK 
American SamoaAS 
ArizonaAZ 
ArkansasAR 
CaliforniaCA 
ColoradoCO 
ConnecticutCT 


DelawareDE 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-5. Scan with semicolon in PRINT statement 


Sequential Structured Files 219 


Alabama 

Alaska 

American Samoa 

Arizona 

Arkansas 

California 

Colorado 

Connecticut CT 


Delaware DE 


Scan the States & Abbreviations file, one record at a time. 
Put the data disk in Drive B. 

Press a key to begin. First record will appear in viewport. 
Press space bar to get next record, Q to quit. 


Figure 7-6. Scan with TAB in PRINT statement 


You may wish to save this as the final version of Program 7-1. 
If the list of states and territories or two-letter abbreviations should 
change, just edit the program and make a new file. 

You can perform another series of experiments as follows: 


1. Change the WRITE # statement in the main program to PRINT 
#. For example, in the main program of Program 7-1, 


Change WRITE *1, State$, Abbr$ 
To PRINT *1, State$, Abbr$ 


Then try this variation with some or all of the previously shown 
ways to read information from the file. 


2. Use explicit delimiters in the PRINT # statement. Add one line 
above the DO. . .LOOP in Program 7-1 and change the DO... 
LOOP as follows. 
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Q$ = CHR$(34) 
DO 

READ State$, Abbr$ 

IF Abbr$ = "ZZ" THEN EXIT DO 

PRINT #1, Q$ State$ Q$, QS Abbr$ Q$ 
LOOP 


When you move the cursor off the line containing the PRINT # 
statement, you will see QuickBASIC reformat the line as 


PRINT #1, Q$; State$; Q$, Q$; Abbr$; Q$ 
Don’t be alarmed, but be aware that QuickBASIC sometimes 
changes the format of program entries. Try this with some varia- 


tions of the ScanFile subprogram. 


3. You can experiment further by removing the comma from the 
PRINT # statement. 


PRINT #1, Q$ State$ Q$ QS Abbr$ Q$ 
QuickBASIC will change the format of the statement to 
PRINT #1, Q$; State$; Q$; Q$; Abbr$; QS 
Also try this with some or all of the ScanFile variations. 

This section has discussed several ways to put information into 
a states and abbreviations file and read information out of the file, 
as summarized below. 


Putting information into the file: 


WRITE #1, State$, Abbr$ 
PRINT #1, State$, AbbrS 
PRINT #1, Q$; State$; Q$, Q$; Abbr$; Q$ 


PRINT *1, QS; State$; Q$; Q$; Abbr$; Q$ 


where 
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QS = CHRS(34) 
Reading information from the file: 


LINE INPUT *1, recordS$ 


INPUT #1, StateS, Abbr$ 


Experiment with various combinations. 


Finding Information in the 
StateAbr.Dat File 


Program 7-2, FIND POSTAL ABBREVIATION, searches the 
StateAbr.Dat file for any state or territory record in the file, using 
a search key entered from the keyboard. This is done by the 
following lines in the main program: 


"Get search key. Empty string ends program. 
DO 
INPUT "State or Territory"; LookFor$ 
IF LookFor$ = "* THEN 
VIEW PRINT 1 TO 25: CLS 
EXIT DO 
END IF 


You can end the program by entering the empty string as the 
search key: Just press ENTER without typing anything. The screen is 
cleared, except for a "Press any key to continue" message at the 
bottom. Press a key, and QuickBASIC returns you to the Edit 
screen. If you enter a search key, the StateAbr.Dat file is opened 
and the SearchFile subprogram is called. 


' Find and print records that match LookFor$ 
OPEN “B:StateAbr.Dat” FOR INPUT AS #1 
CALL SearchFile(LookFor$) 
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DECLARE SUB SearchFile (SearchKey$) 

REM ** FIND POSTAL ABBREVIATION ** 

' Using QuickBASIC, Chapter 7 

' Microsoft QuickBASIC 4.5 File: UQBO702.BAS 


Finds postal abbreviation for any state or territory in 
' StateAbr.Dat file. Search key can be left part of the 
name of the state or territory. Finds all records that 
match search key. Search key can be uppercase, 
lowercase, or mixed upper- and lowercase. 


' Put instructions in lines 21 to 25 

Text$(1) = STRINGS(74, 196) 

Text$(2) = "Put the StateAbr.Dat file in drive B." 

Text$(3) = “Press any key to begin.” 

Text$(4) = "At the prompt, type search key and press ENTER.” 
Text$(5) = “To quit, press ENTER without typing data.” 

CLS : DEFINT A-Z 


FOR row = 1 TO 5 
LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport 
VIEW PRINT 1 TO 20 


' Wait for a key press 

LOCATE 10, 28: PRINT "Press a key to begin." 
anykeyS = INPUTS$(1) 

CLS 2 


' Get search key. Empty key ends program. 
DO 
INPUT “State or Territory"; LookFor$ 
IF LookFor$ = *" THEN 
VIEW PRINT 1 TO 25: CLS 
EXIT DO 
END IF 


' Find and print records that match LookFor$ 
OPEN "B:StateAbr.Dat” FOR INPUT AS «1 
CALL SearchFile(LookFor$) 
CLOSE #1 
PRINT 
LOOP 
END 


SUB SearchFile (SearchKey$) 
Program 7-2. FIND POSTAL ABBREVIATION 
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Searches StateAbr.Dat file, prints all records for which 
left part of State$ matches SearchKey$. If no match is 
found, prints the message: State not found. 

SearchKey$ = UCASE$(SearchKeyS) 

Lenkey = LEN(SearchKey$) 


match = 0 'No match yet 
DO UNTIL EOF(1) 
INPUT *1, State$, Abbr$ 'Read one record 


Maybe$ = UCASES(LEFT$(State$, Lenkey)) 
IF Maybe$ = SearchKey$ THEN 


match = -1 "Match found 
PRINT State$; TAB(35); Abbr$ 
ELSEIF МауЬе$ > SearchKey$ THEN ‘If true, more matches 
EXIT DO 'not possible 
END IF 
LOOP 
IF match = 0 THEN PRINT “State not found." 
END SUB 


Program 7-2. FIND POSTAL ABBREVIATION (continued) 


The variable LookFor$, which holds your search key, is passed when 
the subprogram is called. It becomes the value of SearchKeyf in the 
subprogram and is immediately converted to uppercase letters. 


SearchKey$ = UCASES(SearchKey$) 


SearchFile then computes the length of SearchKey$ and sets the 
match flag to zero to indicate no match as yet. 


LenKey = LEN(SearchKey$) 
match = 0 


A DO. . .LOOP reads records from the StateAbr.Dat file and com- 
pares your search key with the variable Маурей, which is comprised 
of the leftmost characters of each state, with the number of char- 
acters determined by the length of your search key. Ifthe state read 
from the record is beyond (greater than) the search key alphabet- 
ically, an EXIT DO statement ends the search with an exit from the 
loop. 
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DO UNTIL EOF(1) 
INPUT #1, State$, Abbr$ 'Read one record 
Maybe$ = UCASES(LEFTS(State$, LenKey)) 
IF Maybe$ = SearchKey$ THEN 


match = -1 'Match found 
PRINT State$; TAB(35); Abbr$ 
ELSEIF Maybe$ » SearchKey$ THEN ‘If true, more matches 
EXIT DO 'not possible 
END IF 
LOOP 


IF match = 0 THEN PRINT "State not found.” 


The DO. . .LOOP prints every record that matches the search key. 
If no match is found, the value of match remains zero. In this case, 
the message “State not found” is printed when an exit is made from 
the DO. . ООР. 

On completion of the subprogram, control is returned to the 
main program, where the file is closed and the program loops back 
to permit entry of another search key or the program is ended. 


' Get search key. Empty string ends program. 
DO 
INPUT “State or Territory"; LookFor$ 
IF LookFor$ = *" THEN 
VIEW PRINT 1 TO 25: CLS 
EXIT DO 
END IF 


' Find and print records that match LookFor$ 
OPEN "B:StateAbr.Dat^ FOR INPUT AS #1 
CALL SearchFile(LookFor$) 
CLOSE #1 
PRINT 
LOOP 
END 


To use Program 7-2, enter the name of the state or territory whose 
abbreviation you desire, and the computer will find the state and 
its abbreviation. If you enter only the first letter of the state, the 
program will print all the states and territories that begin with that 
letter. You can enter the first two or three letters of the name ofthe 
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state. Try it. The program will find all records in which the leftmost 
letters in the name of the state or territory match your entry. 
When you run Program 7-2, the opening screen shown in 
Figure 7-7 is displayed. Press a key, and the program begins by 
prompting you for a state or territory at the top of the screen. 


State or Territory? . 


The instructions for use of the program are shown at the bottom 
of the screen. 


Put the StateAbr.Dat File in Drive B. 

Press any key to begin. 

At the prompt, type search key and press ENTER. 
To quit, press ENTER without typing data. 


The name to search for may be entered in any combination of 
uppercase and lowercase letters. Examples of entries and the 
printed results are shown in Table 7-1. Figure 7-8 shows a sample 
run of the program. 


Press a key to begin 


Put the States & Abbreviations file in Drive B. 
Press any key to begin. 

At the prompt, type search key and press ENTER. 
To quit, press ENTER without typing data. 


Figure 7-7. Opening screen of Program 7-2 
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You enter The computer prints 


C California CA 
Colorado CO 
Connecticut CT 

nor North Carolina NC 


North Dakota ND 
Northern Mariana Islands CM 


VIRGIN Virgin Islands VI 

Virginia VA 
Ioway State not found 
Iowa Iowa IA 


Table 7-1. Samples from Program 7-2 


Learning by Doodling 


You can use Program 7-3, FILE I/O EXPERIMENTS, to learn 
more about how information is stored in files. Program 7-3 uses 


State or Territory? a 
Alabama 

Alaska 

American Samoa 
Arizona 

Arkansas 


State or Territory? z 
State not found. 


State or Territory? nor 
North Carolina 

North Dakota 

Northern Mariana Islands 


State or Territory? _ 


Put the States & Abbreviations file in Drive B. 
Press any key to begin. 

At the prompt, type search key and press ENTER. 
To quit, press ENTER without typing data. 


Figure 7-8. Output of Program 7-2 
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two files, Doodle.One and Doodle.Two, and operates as follows. 


1. Both files are opened for OUTPUT. 


REM ** FILE 1/0 EXPERIMENTS ** 
' Using QuickBASIC, Chapter 7 
' Microsoft QuickBASIC 4.5 File: UQBO703.BAS 


' Input/output experiments using two files, 
' Doodle.One & Doodle.Two 
DO 
OPEN "B:Doodle.One* FOR OUTPUT AS «1 
OPEN "B:Doodle.Two" FOR OUTPUT AS #2 


' Get data from keyboard. 

' Put same data in two files in two ways. 
CLS 

LINE INPUT "String, please? ^; strng$ 
PRINT #1, strng$ 

WRITE #2, strng$ 


' Print the length of file (LOF) for each file 
' and close the files. 

PRINT 

PRINT “Doodle.One has"; LOF(1); "characters." 
PRINT "Doodle.Two has"; LOF(2); “characters.” 
CLOSE “l, «2 


' Read information from both files and print to screen. 
OPEN *"B:Doodle.One^ FOR INPUT AS #1 

OPEN "B:Doodle.Two” FOR INPUT AS #2 

PRINT : PRINT “Stuff from Doodle.One using LINE INPUT € :" 
LINE INPUT #1, record$ 

PRINT record$ 

PRINT : PRINT “Stuff from Doodle.Two using LINE INPUT * :” 
LINE INPUT #2, record$ 

PRINT record$ 

CLOSE #1, #2 


' Tell how to do again. 
PRINT : PRINT “To do another, press a key." 
anykey$ = INPUT$(1) 

LOOP 

END 


Program 7-3. FILE I/O EXPERIMENTS 
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2. One record is entered as a single string from the keyboard by 
means of a LINE INPUT statement. 


3. The record is written to Doodle.One by means of a PRINT # 
statement. 


4. The record is written to Doodle.Two by means of a WRITE # 
statement. 


5. The LOF function is used in PRINT statements to print the 
length of each file. The length of a file is the number of characters 
in the file. 


6. Both files are closed with the statement CLOSE #1, #2. 
7. Both files are opened for INPUT. 


8. The record in Doodle.One is read with a LINE INPUT £ 
statement and printed to the screen. 


9. The record in Doodle.Two is read with a LINE INPUT # 
statement and printed to the screen. 


10. Both files are closed with CLOSE #1, #2. 


11. You can press any key to enter another string. 


In the examples that follow, note the number of characters in each 
file and the similarities and differences in the way records are 
stored in the two files. 

Run Program 7-3 entering only a single letter as the string to be 
written to both files. For example: 


String, please? a 


Doodle.One has 3 characters. 
Doodle.Two has 5 characters. 


Stuff from Doodle.One using LINE INPUT * : 
a 


Stuff from Doodle.Two using LINE INPUT @ : 


a 
To do another, press a key. 


Examine the results. In Doodle.One, the PRINT # statement 
wrote the string (a) to the file without enclosing it in quotation 


Sequential Structured Files 229 


marks. The file contains three characters, the letter a and the 
carriage-return and line-feed characters that mark the end of the 
record. 

In Doodle.Two, the WRITE £ statement wrote the string (a) to 
the file enclosed in quotation marks. The file contains five charac- 
ters: quotation marks, the letter а, quotation marks, a carriage- 
return character, and a line-feed character. 

Another example follows: 


String, please? 123 


Doodle.One has 5 characters. 
Doodle.Two has 7 characters. 


Stuff from Doodle.One using LINE INPUT $9 : 
123 


Stuff from Doodle.Two using LINE INPUT * : 
"123" 


To do another, press a key. 


This time, three characters were entered (123). Doodle.One con- 
tains five characters: 1, 2, 3, a carriage return, and a line feed. 
Doodle.Two contains seven characters: quotation marks, 1, 2, 3, 
quotation marks, a carriage return, and a line feed. 

Try one more example: 


String, please? a , b , c , 1 , 2 » 3 


Doodle.Qne has 43 characters. 
Doodle.Two has 45 characters. 


Stuff from Doodle.One using LINE INPUT * : 
a , b , c , 1 , 2 , 3 


Stuff from Doodle.Two using LINE INPUT * : 
E A b , с , 1 , 2 , 3* 


To do another, press a key. 
Again, both files contain the same information stored in the same 


way, except for the quotation marks supplied by the WRITE # 
statement in writing to Doodle.Two. 
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Minor Modification 


Edit the program so that the record to be put into both files is 
entered as two strings and written to each file as one record with 
two fields. To do so, change the following part of the program: 


' Get data from keyboard. 

' Put same data in two files in two ways. 
CLS 

LINE INPUT "String, please?'; strng$ 
PRINT #1, strng$ 

WRITE #2, strng$ 


to read 


' Get data from keyboard. 

' Put same data in two files in two ways. 

CLS 

INPUT “Firststring$, Secondstring$"; FrstStrng$, SendStrng$ 
PRINT #1, FrstStrng$, ScndStrng$ 

WRITE #2, FrstStrng$, ScndStrng$ 


After you make these changes, Program 7-3 will write one record, 
consisting of two fields, to each file and then read each record 
exactly as it is stored by means of LINE INPUT # statements. 


pP» REMEMBER LINE INPUT # reads an entire record (all fields) 


up to the carriage-return and line-feed characters that mark the 
end of the record. 


Run the modified program. Try the following example: 


Firststring$, Secondstring$? a,b 


Doodle.One has 17 characters. 
Doodle.Two has 9 characters. 


Stuff from Doodle.One using LINE INPUT @ : 
a b 


Stuff from Doodle.Two using LINE INPUT * : 
"a" ,"b* 


To do another, press a key. 
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Doodle.One is now eight characters longer than Doodle. Two. The 
extra characters are spaces. In writing the record to Doodle.Two, 
the WRITE # statement enclosed each string in quotation marks 
and inserted commas between them as part of the record. 

Here are three more examples: 


Firststring$, Secondstring$? 'a,b",c 


Doodle.One has 17 characters. 
Doodle.Two has 11 characters. 


Stuff from Doodle.One using LINE INPUT * : 
a,b c 


Stuff from Doodle.Two using LINE INPUT є: 
*'a, b" ,"c" 


To do another, press a key. 
Firststring$, Secondstring$? 1234567890123,abc 


Doodle.One has 19 characters. 
Doodle.Two has 23 characters. 


Stuff from Doodle.One using LINE INPUT @ : 
1234567890123 abc 


Stuff from Doodle.Two using LINE INPUT * : 
"1234567890123", “abc” 


To do another, press a key. 
Firststring$, Secondstring$? 12345678901234,abc 


Doodle.One has 33 characters. 
Doodle.Two has 24 characters. 


Stuff from Doodle.One using LINE INPUT * : 
12345678901234 abc 


Stuff from Doodle.Two using LINE INPUT «в : 
” 12345678901234" , "abc" 


To do another, press a key. 


The last two examples illustrate how the PRINT # statement, with 
commas between variable names, prints to a file the same way a 
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PRINT statement prints to the screen. You can see this more 
clearly by changing the PRINT # statement to the following: 


PRINT €1, Firststring$; Secondstring$ 


N 


Semicolon here 


With this change, a sample run produces the following: 


Firststring$, Secondstring$? a,b 


Doodle.One has 4 characters. 
Doodle.Two has 9 characters. 


Stuff from Doodle.One using LINE INPUT * :; 
ab 


Stuff from Doodle.Two using LINE INPUT * : 
*"a*,*b* 


To do another, press a key. 


The next variation of Program 7-3 shows how numbers are 
written to and read from files. Change only the part ofthe program 
that gets information from the keyboard and writes it to the two 
files, as follows: 


' Get data from keyboard. 

' Put same data in two files in two ways. 

CLS 

INPUT "Firstnumber, Secondnumber”; Frstnmbr, Sendnmbr 
PRINT #1, Frstnmbr, Scndnmbr 

WRITE #2, Frstnmbr, Scndnmbr 


Then try this simple example: 


Firstnumber, Secondnumber? 1,2 


Doodle.One has 19 characters. 
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Doodle.Two has 5 characters. 


Stuff from Doodle.One using LINE INPUT ® : 
1 2 


Stuff from Doodle.Two using LINE INPUT «* : 
1,2 


To do another, press a key. 
In writing to Doodle.One, the PRINT # statement 


W Prints the first number as space, digit, space 


W Prints 11 spaces for a total of 14 character positions. This is the 
same as standard comma spacing for PRINT statements 


W Prints the second number as space, digit, space 


W Prints carriage-return and line-feed characters to mark the end 
of a record 


Add up the above, and you get a total of 19 characters. 

In writing numbers to Doodle.Two, the WRITE # statement 
does not enclose each number in quotation marks but inserts a 
comma between the two numbers. In both cases, the numbers are 
stored in ASCII, with one ASCII character for each digit. 

Here are some additional examples for your reading pleasure: 


Firstnumber, Secondnumber? 1 " 2 


Doodle.One has 19 characters. 
Doodle.Two has 5 characters. 


Stuff from Doodle.One using LINE INPUT *# : 
1 2 

Stuff from Doodle.Two using LINE INPUT * : 
1,2 

To do another, press a key. 


Firstnumber, Secondnumber? 1234567,123 


Doodle.One has 21 characters. 
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Doodle.Two has 13 characters. 


Stuff from Doodle.One using LINE INPUT * : 
1234567 123 


Stuff from Doodle.Two using LINE INPUT # : 
1234567,123 


To do another, press a key 
Firstnumber, Secondnumber? 12345678,123 


Doodle.One has 35 characters. 
Doodle.Two has 18 characters. 


Stuff from Doodle.One using LINE INPUT * : 
1.234568E+07 123 


Stuff from Doodle.Two using LINE INPUT в : 
1.234568E+07, 123 


To do another, press a key. 


Design your own experiments. Some suggestions follow. In the 
last variation, use semicolons for spacing in the PRINT # state- 
ment. For example, 


PRINT #1, Frstnmbr; Scndnmbr 


Instead of a record having two strings or two numbers, try one of 
each. For example; 


' Get data from keyboard. 

' Put some data in two files in two ways. 
CLS 

INPUT “String, Number"; Strng$, Number 
PRINT #1, Strng$, Number 

WRITE #2, Strng$, Number 


Experiment with records that have three or more fields. 
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Review 


This chapter discussed and demonstrated the use of structured 
sequential files using 


W OPEN # to open a file 

W PRINT # and WRITE # to put information in a file 

B INPUT # and LINE INPUT # to read information from a file 
B LOF to find the length of a file 

ш CLOSE * to close a file 


You learned to create and scan sequential structured files com- 
posed of records with string fields and numeric fields and records 
that combined strings and numbers in separate fields. 

Two programs, STATES AND ABBREVIATIONS and FIND 
POSTAL ABBREVIATION, were used to demonstrate different 
ways to write to a sequential structured file and to read the data 
from the file. The chapter included a third program, FILE I/O 
EXPERIMENTS, which allowed you to learn by experimenting 
with various ways to send (output) data to a file and read (input) 
data from a file. 


Random-Access 
Files 


You have learned a great deal about sequential files in the last two 
chapters. In this chapter, you will learn how to create, scan, print, 
and search random-access files. You will learn to use the following 
statements and functions in random-access files: 


OPEN # Opening a file FOR RANDOM allows you to 
output to or input from a random-access file 
LEN = A clause in an OPEN statement that specifies 


the record length of the file 
TYPE...END A structure that defines variable types used in 


TYPE random-access files 
PUT # Writes a record to a random-access file 
GET # Reads a record from a random-access file 
CLOSE # Closes specified random-access files. If no file 
number is specified, all open files are closed 
LOF Returns the length of a file 
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A Bit About Random- 
Access Flles 


As we saw in Chapter 6, "Sequential Unstructured Files," records 
in random-access files are organized differently from those in se- 
quential files. Each random-access record is defined with a fixed 
length. Each field within a record is also defined with a fixed 
length. This fixed length determines where a record or a field 
begins and ends. No commas separate fields, and no carriage- 
return and line-feed characters divide records. 

Sequential files save a number as a sequence of ASCII charac- 
ters, with each ASCII character representing one digit of the num- 
ber. Random-access files save numbers in a compressed binary 
format, thus saving disk space and conversion time. Integers stored 
in random-access files occupy two bytes, long integers and single- 
precision numbers occupy four bytes, and double-precision num- 
bers occupy eight bytes. Strings are stored as a sequence of ASCII 
characters in both sequential files and random-access files. 


Creating a Random- 
Access File 


Four steps are required in a program that creates a random-access 
file: 
1. Define the fields of each record. 


2. Open the file in random-access mode, specifying the length of 
each record. 


3. Assign data to the record. 

4. Store the record in the file. 

To create a random-access file, you will be modifying STATES 
AND ABBREVIATIONS, the sequential structured file used in 


Chapter 7, "Sequential Structured Files." In that program, you did 
not have to define the fields as in step 1 above. If you saved the 
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STATES AND ABBREVIATIONS program from Chapter 7, "Se- 
quential Structured Files," you can use your editing skills to modify 
the main program to create a random-access file. Here is that 
program: 


DECLARE SUB ScanFile () 

REM ** STATES AND ABBREVIATIONS ~- CREATE & PROOF FILE ** 
' Using QuickBASIC, Chapter 7 

' Microsoft QuickBASIC 4.5 File: UQBO701.BAS 


REM ** Create the File ** 

' Create StateAbr.Dat file with state names and abbreviations 
' Sequential file with two fields: State$, Abbr$ 

CLS : DEFINT A-Z 


OPEN "B:StateAbr.Dat" FOR OUTPUT AS e1 


DO 
READ State$, Abbr$ 'Read data for one record. 
IF Abbr$ = "ZZ" THEN EXIT DO ‘Exit on end of data record. 
WRITE #1, State$, Abbr$ ‘Print one record to file. 

LOOP 

CLOSE *1 


DATA Alabama,AL, Alaska,AK, American Samoa,AS 

DATA Arizona,AZ, Arkansas,AR, California,CA 

DATA Colorado,CO, Connecticut,CT, Delaware,DE 

DATA District of Columbia,DC, Federated States of Micronesia,TT 
DATA Florida,FL, Georgia,GA, Guam,GU 

DATA Hawaii,HI, Idaho,ID, Illinois,IL 

DATA Indiana,IN, Iowa,IA, Kansas,KS 

DATA Kentucky,KY, Louisiana,LA, Maine,ME 

DATA Mariana Islands,CM, Marshall Islands,TT, Maryland,MD 
DATA Massachusetts,MA, Michigan,MI, Micronesia,TT 

DATA Minnesota,MN, Mississippi,MS, Missouri,MO 

DATA Montana,MT, Nebraska,NE, Nevada,NV 

DATA New Hampshire,NH, New Jersey,NJ, New Mexico,NM 
DATA New York,NY, North Carolina,NC, North Dakota,ND 
DATA Northern Mariana Islands,CM, Ohio,OH, Oklahoma,OK 
DATA Oregon,OR, Palau,TT, Pennsylvania, PA 

DATA Puerto Rico,PR, Rhode Island,RI, South Carolina,SC 
DATA South Dakota,SD, Tennessee,TN, Texas,TK 

DATA Utah,UT, Vermont,VT, Virgin Islands,VI 

DATA Virginia,VA, Washington,WA, West Virginia,WV 

DATA Wisconsin,WI, Wyoming,WY 

DATA End of data,ZZ 


REM ** Scan the File & Proof it, Then End 
CALL ScanFile 
END 
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You can define a record with а TYPE. ..END TYPE statement. 

This allows you to mix string fields with numeric fields, eliminating 

the need for functions that convert numeric data to strings, which 

are required in GW-BASIC and early versions of QuickBASIC. 
Step 1 can be performed by the following lines: 


' Define the RecordType Structure 
TYPE RecordType 


State AS STRING * 30 'String field of length 30 
Abbr AS STRING * 2 ‘String field of length 2 
END TYPE 


This defines State as a string field that is 30 characters long and 
Abbr as a string field that is 2 characters long. Therefore, one 
record will have 32 characters. Add this block below the "Create 
the file" block. 

Step 2 requires that the file be opened. In Program 7-1, the 
sequential structured file was opened with 


OPEN "B:StateAbr.Dat" FOR OUTPUT AS #1 


When you open a random-access file, your program should tell 
how long each record is to be. If you do not specify the length of 
the records, QuickBASIC will use the default length of 128 bytes. 
QuickBASIC will do the calculating for you if you declare a variable 
of the defined type, which you can do with a DIM, REDIM, COM- 
MON, STATIC, or SHARED statement. To specify the length, use 
the LEN - clause in the OPEN statement. 


' Declare StateRecord as the above type 
DIM StateRecord AS RecordType 


' Open random access file, specify length of one record 
' a8 the length of the StateRecord variable 
OPEN "B:StateAbr.Dat" FOR RANDOM AS #1 LEN = LEN(StateRecord) 


Calculates the length of a record 


Add these blocks below the type declaration block. 
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Step 3 gets data for records, and step 4 stores them in the 
random-access file. Program 7-1 used the following DO. ..LOOP 
to perform this step for a sequential structured file: 


DO 
READ State$, Abbr$ 
IF AbbrS » "ZZ* THEN EXIT DO. 
WRITE *1, StateS, Abbr$ 

LOOP 


Records of random-access files are assigned a number when they 
are written to the file. If a DO. . .LOOP is used іп the random- 
access file to enter records and write them to the file, the record 
number must be initialized before the loop is entered. The number 
is incremented each time the DO. . .LOOP is executed. A random- 
access file uses the PUT # statement instead of PRINT # or 
WRITE # to write records to a file. If the data has been defined by 
a TYPE. . .END TYPE statement, then a comparable DO. ..LOOP 
for a random-access file, along with the statement that initializes 
the record number, would be 


' Initialize the record number 
RecordNumber = 0 


' Read data and put it in file 

DO 
READ StateRecord.State, StateRecord.Abbr 
IF StateRecord.Abbr » "ZZ" THEN EXIT DO 
RecordNumber = RecordNumber + 1 
PUT #1, RecordNumber, StateRecord 

LOOP 


Insert this block below the OPEN file block. 
Records are read as individual fields: 


Record name 


AMA 


READ Uf State, StateRecord.Abbr 


A WP a 


Separator Field Names 
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In Program 7-1, the data file was first opened for output so that 
data could be written to the file. After writing to the file, Program 
7-1 closed file #1 because the file had to be reopened for input in 
order to read from the file . 


CLOSE *1 4. — —— —— — In the main program 


OPEN "B:StateAbr.DAT^ FOR INPUT AS #1-4— In the subprogram 


A random-access file lets you write to or read from the file when it 
is open. You don't need to close the file and reopen it in the 
subprogram. Therefore, you should delete the CLOSE #1 state- 
ment following the DO. . .LOOP in Program 7-1 as well as the 
subsequent OPEN statement in the ScanFile subprogram. 


In main program 


DO 
READ State$, Abbr$ 'Read data for one record. 
IF Abbr$ = "ZZ" THEN EXIT DO ‘Exit on end of data record. 
WRITE #1 State$, Abbr$ 'Print one record to file. 
LOOP 
4«—————- CLOSE #1 deleted 
DATA . . « . . « 
In subprogram 
CLS 2 


4————— Open remark and statement deleted 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 


You should also change the opening block of the main program to 
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reflect its use in this chapter (Chapter 8, File: UQB0801.BAS). So 
far, you have the following portion of a random-access file pro- 
gram: 


DECLARE SUB ScanFile () 

REM ** STATES AND ABBREVIATIONS - RANDOM ACCESS ** 
' Using QuickBASIC, Chapter 8 

' Microsoft QuickBASIC 4.5 File: UQB0801.BAS 


REM яж Create the File ** 

' Create StateAbr.Dat file with state names and abbreviations 
' Random access file with two fields: StateS, Abbr$ 

CLS: DEFINT A-Z 


' Define the RecordType structure 
TYPE RecordType 


State AS STRING * 30 'string field of length 30 
Abbr AS STRING * 2 'string field of length 2 
END TYPE 


' Declare StateRecord as the above type 
DIM StateRecord AS RecordType 


' Open random access file, specifying length of one record 
' as the length of the StateRecord variable 
OPEN "B:StateAbr.Dat" FOR RANDOM AS #1 LEN = LEN(StateRecord) 


' Initialize record number 
RecordNumber = 0 


' Read data and put it in file 

DO 
READ StateRecord.State, StateRecord.Abbr 
IF StateRecord.Abbr а "ZZ" THEN EXIT DO 
RecordNumber = RecordNumber + 1 
PUT #1, RecordNumber, StateRecord 

LOOP 


DATA Alabama,AL, Alaska,AK, American Samoa,AS 

DATA Arizona,AZ, Arkansas,AR, California,CA 

DATA Colorado,CO, Connecticut,CT, Delaware,DE 

DATA District of Columbia,DC, Federated States of Micronesia,TT 
DATA Florida,FL, Georgia,GA, Guam,GU 

DATA Hawaii,HI, Idaho,ID, Lllinois,IL 

DATA Indiana,IN, Iowa,IA, Kansas,KS 

DATA Kentucky,KY, Louisiana,LA, Maine,ME 

DATA Mariana Islands,CM, Marshall Islands,TT, Maryland,MD 

DATA Massachusetts,MA, Michigan,MI, Micronesia,TT 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Minnesota,MN, Mississippi,MS, Missouri,MO 
Montana,MT, Nebraska,NE, Nevada,NV 

New Hampshire,NH, New Jersey,NJ, New Mexico,NM 
New York,NY, North Carolina,NC, North Dakota,ND 
Northern Mariana Islands,CM, Ohio,QH, Oklahoma,OK 
Oregon,OR, Palau,TT, Pennsylvania,PA 

Puerto Rico,PR, Rhode Island,RI, South Carolina,SC 
South Dakota,SD, Tennessee,TN, Texas,TX 

Utah,UT, Vermont,VT, Virgin Islands,VI 
Virginia,VA, Washington,WA, West Virginia,WV 
Wisconsin,WI, Wyoming, WY 

End of data,ZZ 


REM ** Scan the File and Proof Read It ** 
CALL ScanFile 


END 


SUB ScanFile 


' $can the StateAbr.Dat file, one record at a time. 
' Put instructions in lines 21 to 25. 
Text$(1) а STRINGS(74, 196) 
Text$(2) = "Scan the States & Abbreviations file." 
Text$(3) = "Put the data disk in drive B." 
Text$(4) = "Press a key to begin. One record appears." 
Text$(5) = “Press space bar to get next record, Q to quit." 
CLS 
FOR row = 1 TO 5 
LOCATE row * 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport to scan records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

PRINT “Press a key to begin." 

anykey$ = INPUTS$(1) 

CLS 2 ‘Clears only viewport 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUT$(1) 

IF UCASE$(nextkey$) = "Q" THEN EXIT DO 
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LOOP 


' Close the file and the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE *1 

END SUB 


Reading a Random- 
Access File 


The STATES AND ABBREVIATIONS program of Chapter 7, "Se- 
quential Structured Files," called a subprogram to scan the sequen- 
tial structured data file. 


REM ** Scan the File and Proof Read It ** 
CALL ScanFile 


These two lines can also be used for a random-access file, but you 
should change the name of the subprogram to avoid confusion. 
Call it ReadFile. 


REM ** Scan the File and Proof Read It ** 
CALL ReadFile 


The subprogram used in STATES AND ABBREVIATIONS can be 
modified to fit a random-access file with the change of a few lines. 
Be sure to change the subprogram's name to match the call from 
the main program. 


SUB ReadFile 


The OPEN statement of Program 7-1’s subprogram can be deleted 
(as previously mentioned), along with the remark preceding it. In 
the random-access subprogram, the file is still open when the 
subprogram is called. 

A user-defined type must be declared in a TYPE. ..END TYPE 
declaration before it can be used in a program. Although a user- 
defined type can only be declared in the module-level code, you 
may declare a variable (such as StateRecord) to be a user-defined 
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type anywhere in the module, even in a SUB or FUNCTION. Use 
a DIM, REDIM, COMMON, STATIC, or SHARED statement to 
declare a variable to be a user-defined type. 

A DIM statement is added to the subprogram to declare that 
StateRecord is defined in the same way as in the TYPE. . .ЕМЮ 
TYPE structure in the main program. Add it just below the CLS 2 
statement. 


anykey$ = INPUTS(1) 
CLS 2 


' Declare StateRecord as defined in main program 
DIM StateRecord AS RecordType 


STATES AND ABBREVIATIONS used the following DO. . .LOOP 
to read the sequential structured file records: 


DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASES(nextkey$) = "Q" THEN EXIT DO 
LOOP 


Random-access files use the GET # statement to read records. 
Therefore, the DO. . .LOOP must be changed to 


RecordNumber = 1 
DO UNTIL EOF(1) 
GET #1, RecordNumber, StateRecord 
PRINT StateRecord.State; StateRecord.Abbr 
RecordNumber = RecordNumber + 1 
nextkey$ = INPUTS(1) 
IF UCASES(nextkey$) = "Q" THEN EXIT DO 
LOOP 


These changes complete Program 8-1, STATES AND ABBREVI- 
ATIONS — RANDOM ACCESS. 

Figure 8-1 shows the screen output when the PRINT statement 
has a semicolon between the state and abbreviation fields, as shown 
here: 


PRINT StateRecord.State; StateRecord.Abbr 
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DECLARE SUB ReadFile () 

REM ** STATES AND ABBREVIATIONS - RANDOM ACCESS ўж 
' Using QuickBASIC, Chapter 8 

' Microsoft QuickBASIC 4.5 File: UQB0801.BAS 


REM ** Create the File ** 

' Create StateAbr.Dat file with state names and abbreviations 
' Random access file with two fields: State$, Abbr$ 

CLS : DEFINT A-Z 

' Define the RecordType structure 
TYPE RecordType 


State AS STRING * 30 'string field of length 30 
Abbr AS STRING * 2 ‘string field of length 2 
END TYPE 


' Declare StateRecord as the above type 
DIM StateRecord AS RecordType 


' Open random access file, specifying length of one record 
' as the length of the StateRecord variable 
OPEN "B:StateAbr.Dat" FOR RANDOM AS «1 LEN = LEN(StateRecord) 


' Initialize record number 
RecordNumber = 0 


' Read data and put it in file 

DO 
READ StateRecord.State, StateRecord.Abbr 
IF StateRecord.Abbr = "ZZ" THEN EXIT DO 
RecordNumber = RecordNumber + 1 
PUT #1, RecordNumber, StateRecord 

LOOP 


DATA Alabama,AL, Alaska,AK, American Samoa,AS 

DATA Arizona,AZ, Arkansas,AR, California,CA 

DATA Colorado,CO, Connecticut,CT, Delaware,DE 

DATA District of Columbia,DC, Federated States of Micronesia,TT 
DATA Florida,FL, Georgia,GA, Guam,GU 

DATA Hawaii,HI, Idaho,ID, ILIllinois,IL 

DATA Indiana,IN, Iowa,IA, Kansas,KS 

DATA Kentucky,KY, Louisiana,LA, Maine,ME 

DATA Mariana Islands,CM, Marshall Islands,TT, Maryland,MD 
DATA Massachusetts,MA, Michigan,MI, Micronesia,TT 

DATA Minnesota,MN, Mississippi,MS, Missouri,MO 

DATA Montana,MT, Nebraska,NE, Nevada,NV 


Program 8-1. STATES AND ABBREVIATIONS - RANDOM ACCESS 


248 


Using QuickBASIC 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


New Hampshire,NH, New Jersey,NJ, New Mexico,NM 
New York,NY, North Carolina,NC, North Dakota,ND 
Northern Mariana Islands,CM, Ohio,OH, Oklahoma,OK 
Oregon,OR, Palau,TT, Pennsylvania, PA 

Puerto Rico,PR, Rhode Island,RI, South Carolina,SC 
South Dakota,SD, Tennessee,TN, Texas,TX 

Utah,UT, Vermont,VT, Virgin Islands,VI 
Virginia,VA, Washington,WA, West Virginia,WV 
Wisconsin,WI, Wyoming,WY 

End of data,ZZ 


REM ** Scan the File and Proof Read It ** 
CALL ReadFile 


END 


SUB ReadFile 


' Sean the StateAbr.Dat file, one record at a time. 


' Put instructions in lines 21 to 25. 
Text$(1) = STRINGS(74, 196) 


Text$(2) = "Scan the States & Abbreviations file." 

Text$(3) = “Put the data disk in Drive B.” 

Text$(4) = “Press a key to begin. One record appears.” 
Text$(5) = "Press space bar to get next record, Q to quit.” 


CLS 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport, to scan records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

PRINT "Press a key to begin." 

anykey$ = INPUT$(1) 

CLS 2 "Clears only viewport 


' Declare StateRecord as defined in main program 
DIM StateRecord AS RecordType 


' Read one record each time a key other than Q is pressed. 
RecordNumber = 1 
DO UNTIL EOF(1) 

GET *1, RecordNumber, StateRecord 

PRINT StateRecord.State; StateRecord.Abbr 

PRINT 


Program 8-1. STATES AND ABBREVIATIONS - RANDOM ACCESS 


(continued) 
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RecordNumber = RecordNumber + 1 

nextkey$ = INPUTS(1) 

IF UCASES(nextkey$) = "Q^ THEN EXIT DO 
LOOP 


' Close the file and the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE *1 

END SUB 


Program 8-1. STATES AND ABBREVIATIONS - RANDOM ACCESS 
(continued) 


The spacing appears exactly as the data is stored in the random- 
access file. Thirty bytes are used to store the state and two bytes to 
store the abbreviation. Therefore, the abbreviation "TT" appears 
next to "Federated States of Micronesia," which is thirty characters 
long. 

Since the length of records and their fields is fixed, the com- 
puter is able to search the file for individual items. 


American Samoa AS 
Arizona AZ 
Arkansas AR 
California CA 
Colorado co 
Connecticut CT 


Delaware DE 


District of Columbia DC 


Federated States of Micronesia ТТ 


Scan the States & Abbreviations file. 

Put the data disk in Drive B. 

Press a key to begin. One record appears. 
Press space bar to get next record, Q to quit. 


Figure 8-1. Output of Program 8-1 using semicolon spacing 


250 Using QuickBASIC 


Figure 8-2 shows the screen output when the PRINT statement 
includes "TAB(40)" between the state and abbreviation fields, as 
shown here: 


PRINT StateRecord.State; TAB(40); StateRecord.Abbr 


The records are not stored on the disk in this format. The printed 
output is not so crowded, because the TAB function provides 
spacing between the two fields when printing to the screen. 


Food and Nutrition 


The next programming project is a random-access data file that 
includes 


ш A main program with a menu to select one item from a list 


American Samoa 
Arizona 
Arkansas 
California 
Colorado 
Connecticut 


Delaware 


District of Columbia 


Federated States of Micronesia TT 


Scan the States & Abbreviations file. 

Put the data disk in Drive B. 

Press a key to begin. One record appears. 
Press space bar to get next record, Q to quit. 


Figure 8-2. Output of Program 8-1 using TAB(40) spacing 
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W A subprogram that adds records to the data file 
W A subprogram that reads all the records in the data file 


B A subprogram that reads selected records by record number 
from the data file 


B A subprogram that does a key search for specific records 


The data used in the file was taken from the Handbook of the 
Nutritional Contents of Foods, prepared for the United States De- 
partment of Agriculture by Dover Publications. Only a small por- 
tion of the database available in that publication is used in the file. 
However, you will be able to add to the data file at any time. 
Information consists of the names of various foods, the condition of 
the food (raw, fresh, cooked, and so on), and the number of calories 
in a one-ounce portion. These categories are used as fields in the 
random-access data file records. 

The program will be created in short modules. You can test 
each part before entering the next part. Enter the following pro- 
gram segment and run it. It requests the designation of the disk 
drive to be used to store the file and the name of the data file and 
combines the two to form the complete filename. This allows the 
program to be used with other data files. 


REM яж Nutrition File ** 
' Using QuickBASIC, Chapter 8 
' Microsoft QuickBASIC 4.5 File: UQB0802.BAS 


REM ** Initialize, Select Disk Drive and File Name ** 

CLS: DEFINT A-Z 

LOCATE 5, 5: INPUT "Which drive for file: "; driveS$ 

drive$ = LEFTS(driveS$, 1) 

LOCATE 7, 5: INPUT "File name with extension: "; filename$ 
filename$ = driveS + ":" + filename$ 

END 


Typical prompts and responses to this part of the program are 


Which drive for file: ?B 


File name with extension: ?FoodFile.Dat 
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A section is now added to declare the record structure. This is done 
in the main program, not in a subprogram or function procedure. 
Put it just above the END statement of the first program segment. 


REM ** Define Record Structure ** 
TYPE FoodItem 
food AS STRING * 18 
kind AS STRING * 15 
calories AS INTEGER 
END TYPE 
END 


This section defines a record with three fields. The total length of 
each record is 35 bytes: Food is a string field 18 bytes long, kind is 
a string field 15 bytes long, and calories is an integer 2 bytes long. 

A section that displays the menu is added to the previous por- 
tion of the program, just ahead of the END statement in the last 
program segment. 


REM ** Print Menu ** 
DO 
LOCATE 5, 5: PRINT SPACES$(70); 
LOCATE 7, 5: PRINT SPACES (70); 
LOCATE 3, 23: PRINT STRINGS(35, 220); 
LOCATE 19, 23: PRINT STRINGS$(35, 223); 
FOR row » 4 TO 18 
LOCATE row, 23: PRINT CHR$(221); 
LOCATE row, 57: PRINT CHR$(222); 
NEXT row 
LOCATE 5, 29: PRINT "RANDOM ACCESS FILE MENU"; 
LOCATE 9, 29: PRINT "(A)dd records"; 
LOCATE 11, 29: PRINT "(R)ead all records"; 
LOCATE 13, 29: PRINT "(G)et specified records"; 
LOCATE 15, 29: PRINT "(S)earch for records"; 
LOCATE 17, 29: PRINT *(Q)uit”; 
LOOP 
END 


Enter and run the program segment as it now exists. After you 
enter the disk drive and filename to be used, the menu is displayed, 
as shown in Figure 8-3. The DO. . .LOOP is not complete at this 
point. Press ESC to exit. 
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RANDOM ACCESS FILE MENU 


(A)dd records 

(В)гай all records 
(Get specified records 
(S)earch for records 


(Quit 


Type Menu Selection (A, В, б, S, ог Q) 


Figure 8-3. Program 8-2 menu 


The next section allows you to make a selection from the menu. 
SELECT CASE is used to implement the choice. An appropriate 
subprogram is called when you press a key. A beep sounds to 
remind you that an entry is required. 


REM ** Make a Choice ** 
LOCATE 22, 3: PRINT SPACE$(70) 
LOCATE 22, 3: PRINT "Type Menu Selection (A, К, G, S, or 0)”; 
DO 
BEEP: KeyChoice$ = UCASES(INPUTS$(1)) 
LOOP WHILE INSTR("ARGSQ", KeyChoice$) = 0 


If you want to test the partial program that now exists, remember 
that the procedures called by SELECT CASE have not been written 
yet. For testing purposes, put PRINT statements in the SELECT 
CASE sections with the calls to subprograms enclosed in quotation 
marks. 
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SELECT CASE KeyChoice$ 
CASE "A" 
PRINT "CALL AddRecords(filename$)" 
CASE "R" 
PRINT "CALL ReadRecords(filename$)" 
CASE "G" 
PRINT "CALL GetRecords(filename$)" 
CASE "S" 
PRINT "CALL SearchRecords(filename$)" 
CASE "Q" 
EXIT DO 
END SELECT 


Insert this section after the PRINT MENU block: 


REM ** Make a Choice ** 
LOCATE 22, 3: PRINT SPACES(70) 
LOCATE 22, 3: PRINT "Type Menu Selection (A, R, G, S, or Q)”; 
DO 
BEEP: KeyChoice$ = UCASES(INPUT$(1)) 
LOOP WHILE INSTR("ARGSQ", KeyChoice$) = 0 
SELECT CASE KeyChoice$ 
CASE "A" 
PRINT "CALL AddRecords(filename$)" 
CASE "R" 
PRINT "CALL ReadRecords(filename$)” 
CASE "G" 
PRINT "CALL GetRecords(filenameS)” 
CASE "S" 
PRINT "CALL SearchRecords(filename$)" 
CASE "Q^ 
EXIT DO 
END SELECT 
CLS 
LOOP 
CLS: END 


When the present program segment is run, the following prompts 
and responses are displayed: 


Which drive for file: ?B 


File name with extension: ?FoodFile.Dat 


Press the key that corresponds to the first letter of any of the menu 
choices to test the SELECT CASE section. When the message that 
corresponds to your choice appears, press any key to display the 
menu for another choice. 
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The next task is to add the necessary procedures for the SE- 
LECT CASE choices. You will need procedures for the following 
cases: 


Case "A" Subprogram AddRecords 
Case "R" Subprogram ReadRecords 
Case "G" Subprogram GetRecords 
Case "S" Subprogram SearchRecords 


The AddRecords 
Subprogram 


The AddRecords subprogram, entered with the New SUB com- 
mand from the Edit menu, may be used to create the original data 
file or to add records to an existing file. Use AddRecords as the 
name of the subprogram. When the name is entered, the opening 
and closing lines appear. 


SUB AddRecords_ 
END SUB 


Add a CLS statement and then a DIM statement to declare a 
variable (FoodRecord), using the data type defined in the main 
program. 


SUB AddRecords (filename$) 
CLS 
' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


The file is then opened. 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


Calculate the number of records already in the file, if any. 
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' Use LOF(1) to calculate record$ already in the file 
RecordNumber = LOF(1) \ LEN(FoodRecord) 


The LOF(1) function calculates the total number of bytes in the file 
using integer division (V). If the data file is new, there are no 
records in it. In this case, LOF(1) returns a value of zero. LEN 
(FoodRecord) calculates the number of bytes in one record. There- 
fore, 


Total bytes in the file 
RecordNumber = - 
Bytes in one record 


Since the records in a random-access file are all the same size, this 
formula can always be used to calculate the number of records in 
a file. 

The next task is to provide for the entry of new records and to 
close the file when done. This is accomplished by the following 
program segment: 


' Add new records 

DO 
INPUT “Food name ?", FoodRecord. food 
INPUT "Food type ?^, FoodRecord.type 
INPUT “Calories per oz. ?", FoodRecord.calories 
PUT *1, RecordNumber, FoodRecord 
INPUT "Any more (Y ог N) 7°, more$ 
PRINT 

LOOP UNTIL UCASES(more$) = “М” 

CLOSE #1 

END SUB 


Program 8-2, PRELIMINARY NUTRITION FILE, now contains a 
complete main program and one subprogram, AddRecords. 

To test the subprogram entered under Case "A," go back to the 
main program. Remove the PRINT keyword and the beginning 
and ending quotation marks so the subprogram reads as follows: 


CASE "А" 
CALL AddRecords(filename$) 
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DECLARE SUB AddRecords (filename$) 

REM ** PRELIMINARY NUTRITION FILE ** 

' Using QuickBASIC, Chapter 8 

' Microsoft QuickBASIC 4.5 File: UQB0802.BAS 


REM ** Select Disk Drive and File Name ** 

CLS : DEFINT A-Z 

LOCATE 5, 5: INPUT "Which drive for file: "; drives 

drive$ = LEFTS(driveS, 1) 

LOCATE 7, 5: INPUT “File name with extension: "; filename$ 
filename$ = drive$ + ":" + filename$ 


REM ** Define Record Structure ** 
TYPE FoodItem 

food AS STRING * 18 

kind AS STRING * 15 

calories AS INTEGER 
END TYPE 


REM ** Print Menu ** 
DO 
LOCATE 5, 5: PRINT SPACE$(70); : LOCATE 7, 5: PRINT SPACES(70); 
LOCATE 3, 23: PRINT STRINGS(35, 220); 
LOCATE 19, 23: PRINT ЅТКІМС$(35, 223); 
FOR row = 4 TO 18 
LOCATE row, 23: PRINT CHR$(221); 
LOCATE row, 57: PRINT CHR$(222); 
NEXT row 
LOCATE 5, 29: PRINT “RANDOM ACCESS FILE MENU"; 
LOCATE 9, 29: PRINT "(A)dd records"; 
LOCATE 11, 29: PRINT "(R)ead all records*; 
LOCATE 13, 29: PRINT "(G)et specified records"; 
LOCATE 15, 29: PRINT *(S)earch for records"; 
LOCATE 17, 29: PRINT "(Q)uit"; 


REM ** Make a Choice ** 
LOCATE 22, 3: PRINT SPACES (70); 
LOCATE 22, 3: PRINT “Туре Menu Selection (А, Е, G, S, ог Q)“; 
DO 
BEEP: KeyChoice$ = UCASES(INPUTS(1)) 
LOOP WHILE INSTR("ARGSQ”, KeyChoice$) = 0 
SELECT CASE KeyChoice$ 
CASE "A" 
CALL AddRecords(filename$) 
CASE "К" 
PRINT "CALL ReadRecords(filename$)*" 
CASE "G" 
PRINT "CALL GetRecords(filename$)” 


Program 8-2. PRELIMINARY NUTRITION FILE 
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CASE "5" 
PRINT "CALL SearchRecords(filename$)" 
CASE “0” 
EXIT DO 
END SELECT 
CLS 
LOOP 
CLS : END 


SUB AddRecords (filename$) 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Use LOF(1) to calculate record number 
RecordNumber = LOF(1) \ LEN(FoodRecord) 


' Add records, then close file 

DO 
INPUT "Food name ?”, FoodRecord.food 
INPUT "Food type ?”, FoodRecord.kind 
INPUT "Calories per oz. ?", FoodRecord.calories 
RecordNumber = RecordNumber + 1 
PUT #1, RecordNumber, FoodRecord 
INPUT "Any more (Y or М) ? ", more$ 
PRINT 

LOOP UNTIL UCASES(more$) = "N* 

CLOSE *1 

END SUB 


Program 8-2. PRELIMINARY NUTRITION FILE (continued) 


Run the program and select (A)dd records from the menu (shown 
in Figure 8-3) by typing a. The screen is cleared, and the opening 
prompt appears. 


Foodname ? 
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Enter the data for three records as shown in Figure 8-4. When you 
are finished, type n at the last prompt. 


Any more (Y or №) ? n 


This returns you to the menu. Type q to quit, and you are returned 
to the program in the View window. 


The ReadRecords 
Subprogram 


You have entered three records in the food data file. Now you need 
to have some way to read the records. The ReadRecords subpro- 
gram is similar to AddRecords. The type for FoodRecord is de- 
clared, and the file is opened in the same way. LOF(1) is then used 
to calculate the total number of records in the file, as follows: 


NumberOfRecords = LOF(1) \ LEN(FoodRecord) 


Food name ?Apple 

Food type ?fresh 
Calories per oz. ?15 
Any more (Y or N) ? y 


Food name ?Avocado 
Food type ?fresh 
Calories per oz. ?48 
Any more (Y or N) ? y 


Food name ?Banana 


Food type ?fresh 
Calories per oz. 724 
Any more (Yor N) ? n 


Figure 8-4. Three entries for food file 
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A FOR...NEXT loop is used to read and print the records in this 
subprogram: 


FOR RecordNumber = 1 TO NumberOfRecords 
GET #1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT Foodrecord.calories 

NEXT RecordNumber 


The file is then closed, and the subprogram ends as before. The 
subprogram looks like this: 


SUB ReadRecords (filename$) 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS *1 LEN = LEN(FoodRecord) 


' Calculate number of records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 


' Read and print records 

FOR RecordNumber = 1 TO NumberOfRecords 
GET *1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT Foodrecord.calories 

NEXT RecordNumber 


LOCATE 25, 1: PRINT "Press any key to continue"; 
waitkey$ = INPUT$(1) 
CLOSE #1 

END SUB 


Enter the subprogram by the New SUB command in the File 
menu, using the name ReadRecords. 

Before you can test the ReadRecords subprogram, you must 
remove the PRINT keyword and the quotation marks from the 
SELECT CASE section of the main program. 
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SELECT CASE KeyChoice$ 
CASE "A" 
CALL AddRecords(filename$) 
CASE "R* 
CALL ReadRecords(filename$)¢———— PRINT and quotation 
CASE "G" marks removed 
PRINT "CALL GetRecords(filename$)" 
CASE "5° 
PRINT "CALL SearchRecords(filename$) ” 


Run Program 8-2 with this subprogram added, and type r to select 
(R)ead records from the Program menu. 

You entered three records when the data file was created ear- 
lier. Figure 8-5 shows these records displayed by the ReadRecord 
subprogram. 


Apple 
Avocado 
Banana 


Press any key to continue 


Figure 8-5. — Three-record output of food file 
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Getting Records by 
Record Number 


Since random-access records are numbered by the PUT # state- 
ment, it is easy to retrieve a record from a data file using the GET 
# statement. The GetRecords subprogram shown below allows you 
to retrieve a specific record by entering its number. You will prob- 
ably not need this often, but it is here to illustrate its use. 


SUB GetRecords (filename$) 
CONST False = 0, True = NOT False 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS *1 LEN » LEN(FoodRecord) 


' Calculate number of Records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 


' Get records requested 
GetMore = True 
DO 
PRINT "Enter record number desired "; 
INPUT "*, RecordNumber 
IF RecordNumber > 0 AND RecordNumber <= NumberOfRecords THEN 
GET *1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 
ELSEIF RecordNumber = 0 THEN 
GetMore = False 
ELSE 
PRINT "Input value out of range.” 
END IF 
PRINT 
LOOP WHILE GetMore 
LOCATE 25, 1: PRINT "Press any key to continué"; 
waitkey$ = INPUTS(1) 
CLOSE #1 
END 


Two constants are declared at the beginning of the subprogram, 
True and False. 
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CONST False = 0, True = NOT false 


А DO. . .LOOP is used to request a record number, get the record, 
and print the appropriate information. The variable GetMore is set 
to True before the loop is entered. When you enter the loop, you 
are prompted for a record number. The result of entering a record 
number will vary. 


m Ifthe number is in the range ofthe number of records in the file, 
the record having the specified number is printed. 


IF RecordNumber > 0 AND RecordNumber <= NumberOfRecords THEN 
СЕТ #1, RecordNumber, FoodRecord 
PRINT Foodrecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 


W Ifthe number is zero, the variable GetMore is set to False, causing 
an exit from the loop. 


ELSEIF RecordNumber = 0 THEN 
GetMore = False 


LOOP WHILE GetMore ¢———___._ Loop if GetMore is true 


п If the number is greater than the number of records in the file 
or less than zero, an out-of-range message is printed, but you stay 
inside the loop for another entry. 


ELSE 
PRINT “Input value out of range." 
END IF 
LOOP WHILE GetMore 
END SUB 


The subprogram ends when an exit is made from the loop. Enter 
zero for the record number when you wish to exit. 
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Before trying the GetRecords selection in the menu, run the 
program again and add the records shown in Table 8-1 using the 
AddRecords selection. | 

When you have completed the record for cottage cheese, enter 
n at the prompt. 


Any more (Y or N) ? n 


CASE "A* 


Food Type 

Bass sea-cooked 
Beans lima-cooked 
Beef chuck-cooked 
Biscuits homemade 
Blueberries fresh 

Bread whole wheat 
Broccoli cooked 
Butter salted 
Cabbage raw 

Cake angel food 
Cake devil’s food 
Carrots raw 

Chicken roasted 
Cottage cheese creamed 
Table 8-1. Additional Nutritional Data 


SELECT CASE KeyChoice$ 


CALL AddRecords(filename$) 


CASE "R* 


CALL ReadRecords(filename$) 


CASE "G^ 


CALL GetRecords(filename$) 


Calories 


The menu is displayed again. You now have 17 records in the food 
file and can display the entire file. However, you must first remove 
the PRINT keyword and the quotation marks from the SELECT 
CASE section of the main program to use the GetRecords sub- 
program. 
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CASE 'S" 
PRINT “CALL SearchRecords(filename$)* 


Select ReadRecords from the menu, and the screen shown in 
Figure 8-6 is displayed. Press any key to return to the program 
menu. Then select GetRecords from the menu. At the prompt, type 
the record number of the record you want to see, and press ENTER. 
The requested record is displayed, along with the prompt for 
another record. 


Enter record number desired<—————— No cursor shows 


Figure 8-7 shows typical responses to various entries. 


Apple fresh 
Avocado fresh 
Banana fresh 

Bass sea-cooked 
Beans lima-cooked 
Beef chuck-cooked 
Biscuits homemade 
Blueberries fresh 

Bread whole wheat 
Broccoli cooked 
Butter salted 


Cabbage raw 
Cake angel food 
Cake devil's food 


Carrots raw 
Chicken roasted 
Cottage cheese creamed 


Press any key to continue 


Figure 8-6. Food file output - 17 records 
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Enter record number desired 2 
Avocado fresh 


Enter record number desired 4 
Bass sea-cooked 


Enter record number desired 10 
Broccoli cooked 


Enter record number desired 25 
Input value out of range. 


Enter record number desired 8 
Blueberries fresh 


Enter record number desired 0 


Press any key to continue 


Figure 8-7. GetRecords output 


Retrieving Records by 
Food Name 


You will probably have trouble remembering the contents of a 
record by its number. You'll be glad to know you can search the 
records by the name of the food that you want to retrieve. 

The SearchRecords subprogram allows you to display the com- 
plete record for any food that you name, so long as it is in the data 
file. You do not have to enter the complete name of the food. The 
length of your entry is assigned to the variable Length. The search 
is made for only that portion of the name entered. 


' Get search key 

INPUT "Enter name of food for search: "; item$ 
Length = LEN(item$) 

item$ = UCASES(item$) 


If you enter a single letter, all records of foods that begin with that 
letter will be displayed. 
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Enter name of food for search: ? a 
Apple fresh 15 
Avocado fresh 48 


When you enter a search string, the search for a food whose 
leftmost letters match the search string starts from the first record 
number. The search proceeds through the file, one record at a 
time, until it reaches a food name that is greater than the search 
string, that is, beyond the search string alphabetically; then an exit 
is made from the loop. The file pointer is set to the first record in 
the file by the SEEK statement. 


' Print records from file that match 
RecordNumber = 1: match = 0 
DO UNTIL EOF(1) 
GET l, RecordNumber, FoodRecord 
Look$ = UCASES(LEFTS(FoodRecord.food, Length) ) 
IF Look$ » item$ THEN 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 
match = 1 
ELSEIF Look$ > item$ THEN 
EXIT DO 
END IF 
RecordNumber = RecordNumber + 1 
LOOP 
SEEK *1, 1 


(We are assuming that the data is arranged in alphabetical order by 
food name. If it is not, it should be sorted in that order. Sorting is 
discussed in the next chapter.) 

The variable match is set to zero before the DO...LOOP is 
entered. As each match is found, the full food record is printed, 
and match is set equal to 1. This value serves as a flag, revealing that 
at least one match was found. An exit is made from the loop when 
the food name retrieved from the file is greater than the entry. If 
no match is found, match is equal to zero, and an appropriate 
message is printed. For example: 


IF match = 0 THEN PRINT item$; " not found." 


Example: Enter name of food for search: ? donuts 
DONUTS not found. 
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After each search is completed, you are asked if you want to con- 
duct another search. If you type y at the prompt, you are asked for 
a new search name; if you type n, the file is closed and the sub- 
program ends. 

The SearchRecords subprogram follows. Enter it and test it with 
several search keys. 


SUB SearchRecords (filename$) 
CLS 


' Declare FoodRecord type 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS *1 LEN = LEN(FoodRecord) 


' Get search key 

DO 
INPUT "Enter name of food for search: °; item$ 
Length = LEN(item$) 
item$ = UCASES$(item$) 


' Print records from file that match 
RecordNumber = 1: match = 0 
DO UNTIL EOF(1) 
GET #1, RecordNumber, FoodRecord 
Look$ = UCASES$(LEFT$(FoodRecord.food, Length) ) 
IF Look$ = item$ THEN 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 
match = 1 
ELSEIF Look$ > item$ THEN 
EXIT DO 
END IF 
RecordNumber = RecordNumber + 1 
LOOP 
SEEK #1, 1 
IF match = 0 THEN PRINT item$; " not found." 
PRINT : PRINT "Another search (Y ог N) ” 
Repeatkey$ = UCASES(INPUTS(1)) 
IF Repeatkey$ <> "Y" THEN EXIT DO 
LOOP 
LOCATE 25, 1: PRINT "Press any key to continue"; 
waitkey$ = INPUTS(1) 
CLOSE #1 
END SUB 
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Figure 8-8 shows the results of four searches. 


The Case of the Faulty 
Choice 


Everyone makes mistakes at the keyboard. Therefore, you should 
provide for an attempted entry that is not on the menu. This is 
taken care of by a short DO. . .LOOP that gives a beep to signal 
when an entry is to be made. It also beeps if you make a wrong 
entry choice. It will accept only the keys А, R, С, 5, or Q. 


DO 
BEEP: KeyChoice$ = UCASES(INPUTS(1)) 
LOOP WHILE INSTR("ARGSQ", KeyChoice$) = 0 


Enter name of food for search: 
Cake angel food 
Cake devil’s food 


Another search (Y or N) 

Enter name of food for search: 
Cabbage raw 

Cake angel food 
Cake devil's food 
Carrots raw 


Another search (Y or N) 
Enter name of food for search: 
Avocado fresh 


Another search (Y or N) 

Enter name of food for search: 
Banana fresh 

Bass sea-cooked 


Another search (Y or N) 


Press any key to continue 


Figure 8-8. Result of four searches 
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You have put together the main program and four subpro- 
grams. This completes Program 8-3, FINAL NUTRITION FILE. 
You can add more records to the food file, read the entire file, read 
records selected by number, and search for records by name. Feel 
free to customize the program to fit your needs. 


DECLARE SUB GetRecords (filename$) 

DECLARE SUB ReadRecords (filename$) 

DECLARE SUB SearchRecords (filenameS$) 

DECLARE SUB AddRecords (filename$) 

REM жж FINAL NUTRITION FILE ** 

' Using QuickBASIC, Chapter 8 

' Microsoft QuickBASIC 4.5 File: UQBO803.BAS 


REM ** Select Disk Drive and File Name ** 

CLS : DEFINT A-Z 

LOCATE 5, 5: INPUT "Which drive for file: ”; drive$ 

drive$ = LEFT$(drive$, 1) 

LOCATE 7, 5: INPUT “File name with extension: "; filename$ 
filename$ = drive$ + ":” + filenameS 


REM ** Define Record Structure ** 
TYPE FoodItem 

food AS STRING ж 18 

kind AS STRING * 15 

calories AS INTEGER 
END TYPE 


REM ** Print Menu ** 
DO 
LOCATE 5, 5: PRINT SPACE$(70); : LOCATE 7, 5: PRINT SPACES(70); 
LOCATE 3, 23: PRINT STRINGS(35, 220); 
LOCATE 19, 23: PRINT STRINGS$(35, 223); 
FOR row = 4 TO 18 
LOCATE row, 23: PRINT CHRS(221); 
LOCATE row, 57: PRINT CHR$(222); 
NEXT row 
LOCATE 5, 29: PRINT "RANDOM ACCESS FILE MENU"; 
LOCATE 9, 29: PRINT "(A)dd records”; 
LOCATE 11, 29: PRINT "(R)ead all records’; 
LOCATE 13, 29: PRINT "(G)et specified records"; 
LOCATE 15, 29: PRINT "(S)earch for records’; 
LOCATE 17, 29: PRINT ” (9) чіс”; 


Program 8-3. FINAL NUTRITION FILE 
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REM ** Make a Choice ** 
LOCATE 22, 3: PRINT SPACE$(70); 
LOCATE 22, 3: PRINT "Type Menu Selection (A, К, G, S, or 0)”; 
ро 
ВЕЕР: KeyChoice$ = UCASES(INPUTS$(1)) 
LOOP WHILE INSTR("ARGSQ", КеуСһоісе$) = 0 
SELECT CASE KeyChoice$ 
CASE "A" 
CALL AddRecords(filenameS$) 
CASE “В” 
CALL ReadRecords(filename$) 
CASE "G^ 
CALL GetRecords(filename$) 
CASE "S* 
CALL SearchRecords(filenameS$) 
CASE *Q* 
EXIT DO 
END SELECT 
CLS 
LOOP 
CLS : END 


SUB AddRecords (filename$) 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Use LOF(1) to calculate record number 
RecordNumber = LOF(1) \ LEN(FoodRecord) 


' Add records, then close file 

DO 
INPUT "Food name ?", FoodRecord.food 
INPUT "Food type ?^, FoodRecord.kind 
INPUT "Calories per oz. ?", FoodRecord.calories 
RecordNumber = RecordNumber + 1 
PUT #21, RecordNumber, FoodRecord 
INPUT "Any more (Y or N) ? ", more$ 
PRINT 

LOOP UNTIL UCASES(more$) s "N* 

CLOSE #1 

END SUB 


Program 8-3. FINAL NUTRITION FILE (continued) 
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SUB GetRecords (filename$) 
CONST False = 0, True = NOT False 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Calculate number of Records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 


' Get records requested 
GetMore » True 
DO 
PRINT "Enter record number desired: ^"; 
INPUT ^", RecordNumber 
IF RecordNumber > 0 AND RecordNumber <= NumberOfRecords THEN 
GET #1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 
ELSEIF RecordNumber = 0 THEN 
GetMore = False 
ELSE 
PRINT "Input value out of range.” 
END IF 
PRINT 
LOOP WHILE GetMore 
LOCATE 25, 1: PRINT "Press any key to continue”; 
waitkey$ = INPUT$(1) 
CLOSE #1 
END SUB 


SUB ReadRecords (filename$) 
CLS 


' Declare type for FoodRecord 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Calculate number of records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 


Program 8-3. FINAL NUTRITION FILE (continued) 
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' Read and print records 

FOR RecordNumber = 1 TO NumberOfRecords 
GET #1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 

NEXT RecordNumber 


LOCATE 25, 1: PRINT "Press any key to continue’; 
waitkey$ = INPUTS(1) 
CLOSE #1 

END SUB 


SUB SearchRecords (filename$) 
CLS 


' Declare FoodRecord type 
DIM FoodRecord AS FoodItem 


' Open random access file 
OPEN filename$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Get search key 

DO 
INPUT "Enter name of food for search: "; item$ 
Length = LEN(item$) 
item$ = UCASES(item$) 


' Print records from file that match 
RecordNumber = 1: match = 0 
DO UNTIL EOF(1) 
GET *1, RecordNumber, FoodRecord 
Look$ = UCASES(LEFTS(FoodRecord.food, Length)) 
IF Look$ = item$ THEN 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 
match = 1 
ELSEIF Look$ > item$ THEN 
EXIT DO 
END IF 
RecordNumber = RecordNumber + 1 
LOOP 
SEEK #1, 1 
IF match = 0 THEN PRINT item$; " not found." 
PRINT : PRINT "Another search (Y or N) " 
Repeatkey$ = UCASES(INPUT$(1)) 


Program 8-3. FINAL NUTRITION FILE (continued) 
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IF Repeatkey$ <> "Y' THEN EXIT DO 
LOOP 
LOCATE 25, 1: PRINT "Press any key to continue"; 
waitkey$ » INPUTS(1) 
CLOSE #1 
END SUB 


Program 8-3. FINAL NUTRITION FILE (continued) 


This chapter was devoted to random-access files. Files opened FOR 
RANDOM may be read from or written to. The length of random- 
access files is specified by the LEN clause in the OPEN statement. 
TYPE. . .END TYPE defines variable types to be used in a random- 
access file. Defining variable types in this way allows you to mix 
string and number fields in the same record. It also allows for 
automatic calculation of record length. PUT # is used to write a 
record to a random-access file, and GET # is used to read a record 
from a random-access file. The length of a random-access file is 
found by the LOF( ) function. The CLOSE # statement is used to 
close random-access files. 

One program in this chapter read data from DATA statements. 
The other two used keyboard entry of data. Menus were used for 
selecting the desired action from a list of several possibilities. File 
actions added records to the file, read all records in the file, read 
records in the file by specifying a number, and read records in the 
file specified by the name or part of a name. 


О Massaging Files 


Data stored in files may become outdated as time passes. Outdated 
information should be periodically updated. This chapter demon- 
strates several utilities that allow you to copy or alter files. 

Some of the utilities could be performed while within DOS, and 
some could be performed within the QuickBASIC environment. 
However, there may be times when you wish to copy or edit files 
within a QuickBASIC program. For instance, a teacher may have 
a program that uses a data file. In certain situations, the teacher 
may want to alter the records in the data file to fit a specific 
situation while within the program. The teacher may want to delete 
some records or add others. The utilities that follow could be used 
to alter the data file. 

The first utility that is discussed and demonstrated allows you to 
copy and scan a sequential file. Then, a more complex utility that 
allows you to append records, delete records, insert records, and 
scan a sequential file is presented. The last utility covered in this 
chapter demonstrates how to sort records in a random-access file 
after they have been randomly scrambled. 
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Copying a Sequential File 


One useful file utility makes a duplicate of your data file. This 
utility allows you to make backup copies or copy a data file from 
one disk to another. MS-DOS has a copy utility program that you 
have probably used, writing a command such as the following: 


A»COPY filename B: —————-—- Copies a file 
(filename to the disk in drive B) 


But sometimes you may want to copy a file as part ofa QuickBASIC 
program without stopping to use the MS-DOS copy program. A 
program to copy a sequential file should include the following 
Steps: 


1. Get the name ofthe old file to be copied and the disk drive where 
it is located. 


2. Get the name ofthe new file (the copy ofthe old file) and the disk 
drive where it is located. 


3. Use the information from steps 1 and 2 to form the file specifi- 
cations needed to access the two files. 


4. Pause while disks are placed in the proper drives. 


5. Open the file to be copied for input and the file to receive the 
copy for output. 


6. Read records from the old file and write them to the new file. 
7. Close both files. 


8. Provide a message indicating that the original file has been 
copied. 


9. Scan the file to see if it has been copied correctly. 


Some of these steps may be omitted if copying a file is simply part 
of a larger program. 
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In writing a file-copy program, you might begin with a skeleton 
program containing a main program and subprograms that merely 
print the names of their functions. 

Program 9-1, COPY A SEQUENTIAL FILE, calls three sub- 
programs: 


CALL NameDrive(OldFile$, NewFile$) 


/ 


To get disk drive and 
filenames 


CALL CopyFile(OldFile$, NewFile$) 
To copy the file 
CALL ScanFile(FileToScan$) 


To scan the new file to 
verify a correct copy 


DECLARE SUB NameDrive (OldFile$, NewFile$) 
DECLARE SUB CopyFile (OldFileS, NewFileS) 
DECLARE SUB ScanFile (FileToScan$) 
REM ** COPY A SEQUENTIAL FILE ** 

' Using QuickBASIC, Chapter 9 

' Microsoft QuickBASIC 4.5 File: UQB0901.BAS 


CLS : PRINT "Program 9-1, COPY A SEQUENTIAL FILE* 

PRINT 

DIM SHARED Text$(1 TO 5) 'Used for ScanFile.Sub 
CALL NameDrive(OldFile$, NewFile$) 


PRINT : PRINT "Press any key to continue." 
startkey$ =» INPUT$(1) 


CALL CopyFile(OldFile$, NewFile$) 


PRINT : PRINT ^File copy is finished." 


Program 9-1. COPY A SEQUENTIAL FILE 
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PRINT : PRINT "To scan new file, press S" 
PRINT : PRINT “To quit, press any key except S” 


ScanOrQuit$ = UCASES(INPUTS(1)) 
IF ScanOrQuit$ = "S" THEN CALL ScanFile(FileToScan$) 


END 


SUB CopyFile (OldFile$, NewFile$) 
PRINT : PRINT “CopyFile subprogram" 
END SUB 


SUB NameDrive (OldFile$, NewFile$) 
PRINT ^NameDrive subprogram" 
END SUB 


SUB ScanFile (FileToScan$) 
PRINT : PRINT "ScanFile subprogram" 
END SUB 


Program 9-1. COPY A SEQUENTIAL FILE (continued) 


Enter Program 9-1, save it as UQB0901.BAS, and run it. 
Program 9-1 begins by clearing the screen and printing its 
name. The DIM SHARED statement dimensions a string array that 
will be used in the final ScanFile subprogram. The program then 
calls the NameDrive subprogram. For now, this subprogram 
merely prints its name. A message is printed and the program 
pauses, waiting for you to press a key. The output at this point is 


Program 9-1, COPY A SEQUENTIAL FILE 
NameDrive subprogram 


Press any key to continue. 


When you press a key, the program calls the CopyFile subprogram, 
which prints its name. Then more messages are printed and the 
program pauses again. The output is now 
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Program 9-1, COPY A SEQUENTIAL FILE 
NameDrive subprogram 

Press any key to continue. 

CopyFile subprogram 

File copy is finished. 

To scan new file, press S 


To quit, press any key except S 


Press $ and the ScanFile subprogram is called. It also prints its 
name, producing the final display shown in Figure 9-1. 

The program flow has now been checked. Add the subpro- 
grams one at a time, so that they can be tested individually. Some 
of the subprograms will be used again, so you should save them 
separately. You can then merge them with other programs as they 
are needed. 


Program 9-1, COPY A SEQUENTIAL FILE 
NameDrive subprogram 

Press any key to continue. 

CopyFile subprogram 

File copy is finished. 


To scan new file, press $ 


To quit, press any key except S 


ScanFile subprogram 


Press any key to continue 


Figure 9-1. Output of Program 9-1 before adding subprograms 
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Adding the NameDrive 
Subprogram 


From the File menu, select New Program and press ENTER. Enter 
the following line: 


REM ** PRO9-2 NameDrive Subprogram - Use View Menu to see ** 


Then access the New SUB command from the Edit menu, using 
Full menus. Type namedrive in the dialog box and press ENTER. 
Then enter Program 9-2, NameDrive Subprogram. 

When you have entered the subprogram, use Save As from the 
File menu to save the file (containing the one-line main program 
and the NameDrive subprogram) as NameDriv.Sub. This saves the 
subprogram as a separate file so that it can be merged with other 
programs as well as with Program 9-1. 

Next, reload Program 9-1. Access the View menu, select the 
SUBs command, and press ENTER. Move the highlight down to the 
NameDrive subprogram, use the TAB key to move to the DELETE 
button, and press ENTER. À dialog box asks if you want to delete the 


REM хє PRO9-2 NameDrive Subprogram - Use View Menu to see ** 


SUB NameDrive (OldFile$, NewFile$) 

' Gets drive designation and file name 
CLS 
INPUT "Old File Name"; FromFile$ 
INPUT “Old File Drive’; FromDrive$ 
PRINT 
INPUT “New File Name"; ToFile$ 
INPUT "New File Drive’; ToDrives 


OldFile$ = LEFT$(FromDrive$, 1) + ":" + FromFile$ 


NewFile$ = LEFTS(ToDrive$, 1) + ":" + ToFile$ 
END SUB 


Program 9-2. NAMEDRIVE SUBPROGRAM 
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procedure from the main module. Since you want to delete the old 
three-line NameDrive subprogram, press ENTER while the OK but- 
ton is highlighted. This deletes the old subprogram that merely 
printed the subprogram's name. 

Access the main program and move the cursor to the beginning 
(the leftmost letter of the first DECLARE statement). To put the 
new subprogram in place, access the File menu, select the Merge 
command, and press ENTER. In the dialog box, enter the name ofthe 
file to be merged, as shown here: 


B:NameDrive.SUB 


Press ENTER. Delete the REM statement that appears at the top of the 
main program. Then access the NameDrive subprogram from the 
View menu to make sure it was correctly merged. Make any nec- 
essary changes, and save this new version of Program 9-1 as 
UQBO9OIA. 

Now you are ready to test the NameDrive subprogram. Run the 
new version of Program 9-1. The program name is printed as it was 
in the previous run. At the prompt in the NewDrive subprogram, 
enter the following information: 


Old File Name? OldGold.BAS — OldGold is the old file. 

Old File Drive ? A — OldGold is on disk in Drive A. 

New File Name? NewLode.BAS — NewLode is new file. 

New File Drive? B — Disk to accept NewLode is in Drive B. 


Press any key to continue. 


This trial run shows that the NameDrive subprogram is working 
correctly. Press a key and the information from the CopyFile sub- 
program is displayed. Press any key except $ to quit. 
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REM ** PRO9-3 CopyFile Subprogram - Use View Menu to see ** 


SUB CopyFile (OldFile$, NewFile$) 

' Opens two disk files; then copies a file from file #1 
to file #2; closes both files 

OPEN OldFile$ FOR INPUT AS #1 

OPEN NewFile$ FOR OUTPUT AS #2 


DO UNTIL EOF(1) 
LINE INPUT #1, record$ 
PRINT #2, record$ 
LOOP 


CLOSE «1, «2 
END SUB 


Program 9-3. COPYFILE SUBPROGRAM 


Adding the CopyFile 
Subprogram 


The CopyFile subprogram is added in the same way that you 
added the NameDrive subprogram. Enter the CopyFile subpro- 
gram as a separate file, select New Program from the File menu, 
and enter the REM statement as follows: 


REM ** PRO9-3 CopyFile Subprogram - Use View Menu to see ** 


Next, access the New SUB command from the Edit menu and type 
copyfile. Then, press ENTER and enter Program 9-3, CopyFile Sub- 
program. Use Save As from the File menu to save the file as 
CopyFile.Sub. This saves CopyFile as a separate file that can be 
merged with other programs. 

Reload Program 9-ІА (UQB0901A.BAS), and delete the old 
three-line CopyFile subprogram the way you deleted the old three- 
line NameDrive subprogram. Next, place the cursor at the begin- 
ning of the main program. Then access the File menu, select 
theMerge command, and press ENTER. At the dialog box, enter the 
name of the new file to be merged, as follows: 
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B:CopyFile.SUB 


Press ENTER. Once again, delete the REM statement that appears at 
the top of the main program. Access the CopyFile subprogram 
from the View menu to make sure it was merged correctly. Save 
this new version of the program as UQB0901B. 

You can test the CopyFile subprogram by creating a short file 
and using Program 9-1B to copy it. To create the file, select New 
Program from the File menu and enter the following lines: 


REM ** PROGRAM TO TEST COPYFILE SUBPROGRAM ** 
' Unnumbered program 

' For testing purposes 

' Save as: REMFILE.BAS 

' It will be copied as: TEMP.BAS 


Save the text as a file named RemFile.Bas on the same disk that 
contains the latest version of Program 9-1B. Then, put this disk 
into drive B. Load and run Program 9-1B. Input the following 
data: 


Program 9-1 COPY A SEQUENTIAL FILE 


Old File Name? REMFILE.BAS — Be sure to enter the 
Old File Drive? B extension .BAS 
New File Name? TEMP.BAS — Name with extension 


New File Drive? B 


Press any key to continue. 


When you press any key, RemFile.Bas will be copied to the same 
disk (in drive B) with a new name, Temp.Bas. After the file has 
been copied, the dialog continues. 


File copy is finished. 
To scan new file, press 5 


To quit, press any key except S 
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Since the ScanFile subprogram has not been written yet, press a 
key other than $ to quit. 

You can look at the copied program by loading it with the Open 
Program command from the Run menu. This is possible since 
RemFile.Bas was saved as a QuickBASIC program, even though it 
is technically a text file and not a program that can be executed. 


Adding the ЅсапЕііе 
Subprogram 


Select New Program from the File menu and enter the following 
line: 
REM ** PRO9-4 ScanFile Subprogram - Use View Menu to see 


Then, access New SUB from the Edit menu. Type scanfile in the 
dialog box and press ENTER. Enter Program 9-4, ScanFile SubPro- 
gram, and save it as ScanFile.Sub. 


REM ** PRO9-4 ScanFile Subprogram - Use View Menu to see x* 


SUB ScanFile (FileToScan$) 
' Scans a previously saved data file 
' Directions displayed at bottom of screen 


' Put instructions in lines 21 to 25. 
Text$(1) = STRING$(74, 196) 
Text$(2) = "Scan ” + FileToScan$ + " file, one record at a time." 
Text$(3) = "Put the data disk in drive ” + LEFT$(FileToScan$, 1) + ".* 
Text$(4) = "Press a key to begin. First record will appear on screen." 
Text$(5) = "Press space bar to get next record, Q to quit." 
CLS : DEFINT A-Z 
FOR row = 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport, used for scanning records. 
VIEW PRINT 1 TO 20 
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' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 ‘Clears only viewport 


' Open the file to scan for input as file #1. 
OPEN FileToScan$ FOR INPUT AS el 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUT$(1) 

IF UCASES(nextkey$) = °Q” THEN EXIT DO 
LOOP 


PRINT : PRINT “End of file. Press any key to continue.^"; 
anykey$ = INPUTS(1) 


' Close the file and end the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE #1 

END SUB 


Program 9-4. SCANFILE SUBPROGRAM (continued) 


Remove the old three-line ScanFile subprogram from Program 
9-1 by selecting SUBs from the View menu, highlighting the Scan- 
File subprogram in the dialog box, using the TAB key to move to the 
DELETE button, and pressing the ENTER key. Then, merge the new 
ScanFile subprogram (ScanFile.Sub) with the Merge command of 
the File menu. Put the ScanFile subprogram in the View window 
to make sure it has been merged correctly. 

Save the revised program, with all subprograms, as 
UQB0905.BAS; change the name to Program 9-5, COPY & SCAN 
A SEQUENTIAL FILE. You can now test the ScanFile subpro- 
gram. Use Program 9-5 (UQB0905.BAS) to copy itself to a file 
named Temp.Bas. Then, scan the copied program Temp.Bas with 
Program 9-5. The following dialog is displayed. 
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DECLARE SUB NameDrive (OldFile$, NewFile$) 
DECLARE SUB CopyFile (OldFile$, NewFile$) 
DECLARE SUB ScanFile (FileToScan$) 

REM ** COPY & SCAN A SEQUENTIAL FILE ** 

' Using QuickBASIC, Chapter 9 

' Microsoft QuickBASIC 4.5 File: UQB0905.BAS 


CLS : PRINT "Program 9-5, COPY & SCAN A SEQUENTIAL FILE" 
PRINT 
DIM SHARED Text$(1 TO 5) 'Used for ScanFile.Sub 


CALL NameDrive(OldFile$, NewFileS$) 


PRINT : PRINT "Press any key to continue." 
startkey$ = INPUTS(1) 


CALL CopyFile(OldFile$, NewFile$) 


PRINT : PRINT “File copy is finished.” 
PRINT : PRINT “To scan new file, press S" 
PRINT : PRINT "To quit, press any key except S* 


ScanOrQuit$ = UCASES(INPUT$(1)) 
IF ScanOrQuit$ = "S" THEN CALL ScanFile(FileToScan$) 


END 


SUB CopyFile (OldFile$, NewFile$) 

' Opens two disk files; then copies a file from file #1 
' to file #2; closes both files 

OPEN OldFile$ FOR INPUT AS #1 

OPEN NewFile$ FOR OUTPUT AS #2 


DO UNTIL EOF(1) 
LINE INPUT *1, record$ 
PRINT #2, record$ 

LOOP 


CLOSE «1, «2 
END 508 


SUB NameDrive (OldFile$, NewFile$) 
Gets drive designation and file name 
CLS 
INPUT "Old File Name"; FromFile$ 
INPUT "Old File Drive"; FromDrive$ 
PRINT 
INPUT "New File Name”; ToFile$ 
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INPUT "New File Drive’; ToDriveS$ 


OldFile$ = LEFTS(FromDrive$, 1) + ":" + FromFile$ 
NewFile$ = LEFTS(ToDrive$, 1) + "':" + ToFileS 
END SUB 


SUB ScanFile (FileToScan$) 
' Scans a previously saved data file 
' Directions displayed at bottom of screen 


' Put instructions in lines 21 to 25. 
Text$(1) » STRINGS(74, 196) 
Text$(2) = "Scan " + FileToScan$ + " file, one record at a time." 
Text$(3) = "Put the data disk in drive " + LEFT$(FileToScan$, 1) + "." 
Text$(4) = "Press a key to begin. First record will appear on screen.’ 
Text$(5) = "Press space bar to get next record, Q to quit." 
CLS : DEFINT A-Z 
FOR row » 1 TO 5 

LOCATE row + 20, 3: PRINT Text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport, used for scanning records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 ‘Clears only viewport 


' Open the file to scan for input as file wl. 
OPEN FileToScan$ FOR INPUT AS *"1 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASE$(nextkey$) = "Q" THEN EXIT DO 
LOOP 


PRINT : PRINT "End of file. Press any key to continue."; 
anykey$ = INPUTS(1) 


' Close the file and end the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE #1 

END SUB 
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Old File Name? UQBO905.BAS 
Old File Drive? B 


New File Name? TEMP.BAS 
New File Drive? B 


Press any key to continue. 
File copy is finished. 
To scan new file, press S 


To quit, press any key except S 


Press 5 to scan the Temp.Bas file. Figure 9-2 shows the scan of the 
copied file in progress. You may step through the entire file or 
press Q when you are satisfied the copy was made correctly. 

The ScanFile subprogram reads each record with a LINE IN- 
PUT # statement. It prints blank lines between consecutive pro- 
gram lines so that the lines can be read easily. If you want to change 
the way records are read or the way they are printed to the screen, 
you can write individual subprograms to format the data as de- 
sired. 


DECLARE SUB NameDrive (Oldfile$, NewFile$) 


DECLARE SUB CopyFile (OldFile$, NewFile$) 


DECLARE SUB ScanFile  (FileToScan$) 
REM жє COPY A SEQUENTIAL FILE «* 
' Using QuickBASIC, Chapter 9 


' Microsoft QuickBASIC 4.5 File: UQB0905.BAS 


CLS: PRINT “Program 9-5, COPY A SEQUENTIAL FILE" 


PRINT 


Scan the B:TEMP.BAS file, one record at a time. 

Put the data disk in Drive B. 

Press a key to begin. First record will open a viewport. 
Press space bar to get next record, Q to quit. 


Figure 9-2. Scan of copied file in progress 
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REM ** CREATE FILE OF LETTERS FROM A ТО Z ** 
’ Using QuickBASIC, Chapter 9 
' Microsoft QuickBASIC 4.5 File: UQBO906.BAS 


' Initialize variables and open file 
DEFINT A-Z 
OPEN "B:Alphabet.Dat" FOR OUTPUT AS «l1 


' Enter records consisting of letters 
FOR k = 1 TO 26 

PRINT #1, CHRS(k + 64) 
NEXT k 


' Close the file and end the program 
CLOSE #1 
END 


Program 9-6. CREATE FILE OF LETTERS FROM A TO Z 


Here is a little program to create a file in which each record is 
a letter of the alphabet. Enter and run Program 9-6, CREATE 
FILE OF LETTERS FROM A TO Z. Then use Program 9-5 to copy 
the data file produced (Alphabet.Dat) to a temporary file (Temp 
.Dat). You will use Alphabet.Dat again later. A scan of the Temp 
.Dat file is shown in Figure 9-3. 


Scan the B:TEMP.DAT file, one record at a time. 

Put the data disk in Drive B. 

Press a key to begin. First record will open a viewport. 
Press space bar to get next record, Q to quit. 


Figure 9-3. Scan of Temp.Dat file 
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Copying and Editing 
a Sequential File 


So far, you have created, copied, and scanned a data file. If data in 
a file is to be changed, you need a utility program that lets you edit 
the information in a data file. 

Program 9-7, COPY & EDIT A SEQUENTIAL FILE, is a skel- 
eton program that provides subprograms that append data to a 
file, delete data from a file, insert new data into a file, and scan a 
file. The subprograms will be added and tested one at a time. 

Enter the skeleton program and run it to see how the program 
flows. The main program provides displays similar to those of 


DECLARE SUB NameDrive (OldFile$, NewFile$) 
DECLARE SUB CopyEdit (OldFileS$, NewFile$) 
DECLARE SUB ScanFile (FileToScan$) 

DECLARE SUB AppendFile (FileName$) 

REM ** COPY & EDIT A SEQUENTIAL FILE хє 

' Using QuickBASIC, Chapter 9 

' Microsoft QuickBASIC 4.5 File: UQB0907.BAS 


' Initialize 

DEFINT A-Z: CLS 

PRINT “Program 9-7, COPY & EDIT A SEQUENTIAL FILE” 
PRINT 


' Call SUBs - one at a time 

CALL NameDrive(OldFile$, NewFile$) 

PRINT : PRINT "Press any key to continue." 
StartkeyS = INPUTS(1) 


CALL CopyEdit(OldFile$, NewFile$) 
PRINT : PRINT “File copy & edit is finished.” 


' See if more records are to be added 
PRINT 
PRINT “Add additional records to "; NewFile$; " (Y or N)?” 
DO 
BEEP: WhatToDo$ = UCASES(INPUTS(1)) 
LOOP WHILE INSTR(^YN", WhatToDo$) = 0 


' If more records desired do this block 
IF WhatToDo$ = "Y" THEN CALL AppendFile(NewFile$) 
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' See what to do next 

PRINT "To scan new file, press S* 

PRINT : PRINT “To quit, press any key except S* 
ScanOrQuit$ = UCASES(INPUTS$(1)) 


' If want to scan the new file do this 
IF ScanOrQuit$ = "S" THEN CALL ScanFile(FileToScan$) 


END 


SUB AppendFile (FileName$) 

' In future this SUB allows appending to a data file 
PRINT : PRINT "AppendFile subprogram” 

END SUB 


SUB CopyEdit (OldFile$, NewFile$) 

' In future will copy/edit a data file 
PRINT : PRINT "CopyEdit subprogram" 

END SUB 


SUB NameDrive (OldFile$, NewFile$) 

' In future allows naming files for data manipulation 
PRINT "NameDrive subprogram” 

END SUB 


SUB ScanFile (FileToScan$) 

' In future allows you to scan a data file 
PRINT : PRINT 'ScanFile subprogram” 

END SUB 


Program 9-7. COPY & EDIT A SEQUENTIAL FILE (continued) 


Program 9-1. The name of the program is printed, and the Name 
Drive subprogram is called. At the present time, the subprogram 
merely prints its name. 

The program pauses after the NameDrive subprogram is exe- 
cuted. When you press a key at the message "Press any key to 
continue," the CopyEdit subprogram is called, and the name ofthe 
CopyEdit subprogram is printed. The following messages are 
printed after the CopyEdit subprogram has been executed: 


PRINT "File copy and edit is finished." 
PRINT 
PRINT "Add additional records to "; NewFile$; "(Y or Н)" 


A DO. . ООР then beeps and waits for your response. 
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DO 
BEEP: WhatToDo$ = UCASES(INPUTS(1)) 
LOOP WHILE INSTR("YN", WhatToDo$) = 0 


If you respond by pressing Y, the AppendFile subprogram is called. 
It prints its name and returns to the main program, where addi- 
tional messages are printed. The dialog carried out so far appears 
as follows: 


Program 9-7, COPY & EDIT A SEQUENTIAL FILE 
NameDrive subprogram 

Press any key to continue. 

CopyEdit subprogram 

File copy is finished. 

Add additional records to (Y ог М)? 


AppendFile subprogram 
To scan new file, press S 


To quit, press any key except S 


If you respond by pressing N, the AppendFile subprogram is not 
called. In this case, the dialog up to this point is as follows: 


Program 9-7, COPY & EDIT A SEQUENTIAL FILE 
NameDrive subprogram 

Press any key to continue. 

CopyEdit subprogram 

File copy is finished. 


Add additional records to (Y or N)? 
To scan new file, press S 


To quit, press any key except $ 


The screen is then cleared. You are asked if you want to scan the 
file. If you do, press 5; if not, press any other key to end the 
program. 
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You can now add subprograms to replace the temporary sub- 
programs in the skeleton program. 


Adding the NameDrive 
and ScanFile 
Subprograms 


Replace the temporary NameDrive subprogram with the subpro- 
gram of the same name used in Program UQB0905. This allows 
you to enter the names and drives to be used. Replace the tempo- 
rary ScanFile subprogram with the subprogram of the same name 
used in Program UQB0905. This allows you to scan the file after 
you have altered it with the CopyEdit or AppendFile subprogram. 


Adding the CopyEdit 
Subprogram 


The CopyEdit subprogram has not been used before. Therefore, 
enter Program 9-8, CopyEdit Subprogram, just as you entered 
other subprograms in this chapter. Then, delete the three-line 
subprogram used to print the subprogram's name. Merge the new 
subprogram into Program 9-7. 


REM жж PRO9-8 CopyEdit Subprogram - Use View Menu to see яж 


SUB CopyEdit (OldFile$, NewFileS$) 
' Allows you to read a record from an old file 


' Copy a 


record to a new file 


or insert a new record in an old file 


' Initialize, print menu, and open viewport 


CLS 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


: DEFINT A-Z 


19, 3: PRINT STRINGS(74, 196) 

20, 3: PRINT “Type Menu Instruction (R, C, I, or Q):” 

21, 3: PRINT " (R)ead a record from "; OldFileS$ 

22, 3: PRINT “ (C)opy the record on the screen to "; NewFile$ 
23, 3: PRINT " (I)nsert a new record before the one on screen" 
24, 3: PRINT" (Q)uit'; 


VIEW PRINT 1 TO 18 


' Open 


files and do selected chore 


OPEN OldFile$ FOR INPUT AS #1 
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OPEN NewFile$ FOR OUTPUT AS #2 
DO 
DO : 
BEEP: WhatToDo$ = UCASES(INPUT$(1)) 
LOCATE 18, 1: PRINT STRINGS$(79, 32); 
LOOP WHILE INSTR("RCIQ”, WhatToDo$) = 0 
SELECT CASE WhatToDoS 
CASE "Б" 
IF NOT EOF(1) THEN 
LINE INPUT #1, OldRecord$ 
CLS 2: PRINT OldRecord$ 
ELSE 
LOCATE 18, 1: PRINT "All records have already been read."; 
END IF 
CASE "C" 
PRINT #2, OldRecord$ 
LOCATE 18, 1: PRINT " Record on screen is copied to "; NewFile$; 
CASE "I" 
LOCATE 10, 1: PRINT "Type new record and press ENTER:" 
LINE INPUT NewRecord$ 
PRINT #2, NewRecord$ 
CLS 2: PRINT OldRecord$ 
CASE "0" 
EXIT DO 
END SELECT 
LOOP 


' Close files and end subprogram 
CLOSE «1, «2 


END SUB 
—_————————————— 


Program 9-8. CopyEdit Subprogram (continued) 


The CopyEdit subprogram allows you to execute one of four 
options: 


E 


B Read a record from an old file. 
ш Copy a record on the screen to a new file. 
Ш Insert a new record before the one оп the screen. 


B Quit a subprogram. 


When the CopyEdit subprogram is called, it prints the following 
instructions at the bottom ofthe screen and opens two files, one for 
input and one for output: 
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Type Menu Instruction (R, C, I, or Q): 
(R)ead a record from OldFile$ 
(C)opy the record on the screen to NewFile$ 
(I)nsert a new record before the one on the screen 
(9) чіс 


The name of the file being edited and the new file that results are 
inserted in place of “OldFile$” and "NewFile$" in the list of in- 
structions. When you press R, C, 1, or Q, the appropriate case is 
selected from SELECT CASE. 


Adding the AppendFile 
Subprogram 


The last subprogram to be added is Program 9-9, AppendFile 
Subprogram. Delete the three-line subprogram called AppendFile 
and merge Program 9-9 in its place, as you have done with other 
subprograms. 


REM аж PRO9-9 AppendFile Subprogram - Use View Menu to see xx 


SUB AppendFile (FileName$) 
' Append information to FileName$ 
' which includes disk drive designation. 


' Initialize and put instructions in lines 21 to 25 
CLS : DEFINT А-2 
text$(1) = STRINGS(74, 196) 
text$(2) = "Append records to" + FileName$ 
text$(3) = "Press ENTER to begin." 
text$(4) = "At prompt (>), type 1 record and press ENTER." 
text$(5) = "To end file, press ENTER without typing data.” 
FOR row = 1 TO 5 
LOCATE row * 20, 3: PRINT text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for appending records, 
' then wait for a keypress to begin. 

VIEW PRINT 1 TO 20 

LOCATE 10, 28: PRINT "Press a key to begin." 

anykey$ = INPUTS(1) 

CLS 2 "Clears only viewport 
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' Open the file for append as file @1, 
' then enter records from keyboard and append to file. 
OPEN FileName$ FOR APPEND AS «1 
DO 
LINE INPUT "> "; record$ 
PRINT 
IF record$ = "" THEN EXIT DO 
PRINT #1, record$ 
LOOP 


' Close the file and end the subprogram. 
CLOSE *1 
END SUB 


Program 9-9. AppendFile Subprogram (continued) 


Instructions for AppendFile are printed at the bottom of the 
screen. À viewport is then used to display input prompts and 
records that you enter. These records are added to the end of the 
data file. 

This subprogram completes the program. Now save it as 
UQBO0910.BAS. 


Using Program 9-10, 
COPY & EDIT A 
SEQUENTIAL FILE 


A data file, Alphabet.Dat, was created by Program 9-6. Use it now 
to test Program 9-10, COPY & EDIT A SEQUENTIAL FILE. 
Figure 9-4 shows the opening dialog, which names the files and 
disk drives to be used. When the prompt "Press any key to con- 
tinue" is displayed, put the disk containing Alphabet.Dat into 
drive B. 

When you press any key, the CopyEdit subprogram is called, 
and the instructions on page 301 are printed at the bottom of the 
screen. 
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Old File Name? ALPHABET.DAT 
Old File Drive? B 


New File Name? EDITALPH.DAT 
New File Drive? B 


Press any key to continue. 


Figure 9-4. Opening dialog of Program 9-6 
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DECLARE SUB NameDrive (OldFile$, NewFile$) 
DECLARE SUB CopyEdit (OldFile$, NewFile$) 
DECLARE SUB ScanFile (FileToScan$) 

DECLARE SUB AppendFile (FileName$) 

REM ** COPY & EDIT A SEQUENTIAL FILE ** 

' Using QuickBASIC, Chapter 9 

' Microsoft QuickBASIC 4.5 File: UQB0910.BAS 


' Inittalize 

DEFINT A-Z: CLS 

PRINT "Program 9-10, COPY & EDIT A SEQUENTIAL FILE" 
PRINT 


' Call SUBs - one at a time 

CALL NameDrive(OldFile$, NewFile$) 

PRINT : PRINT "Press any key to continue." 
startkey$ = INPUT$(1) 


CALL CopyEdit(OldFile$, NewFile$) 
PRINT : PRINT "File copy & edit is finished." 


' See if more records are to be added 
PRINT 


PRINT “Add additional records to "; NewFile$; " (Y ог N)?” 


DO 
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BEEP: WhatToDo$ = UCASES(INPUTS(1)) 
LOOP WHILE INSTR("YN”, WhatToDo$) = 0 


' If more records desired do this block 
IF WhatToDo$ = "Y" THEN CALL AppendFile(NewFile$) 


' See what to do next 

PRINT “To scan new file, press S" 

PRINT : PRINT "To quit, press any key except S* 
ScanOrQuit$ = UCASES(INPUT$(1)) 


' If want to scan the new file do this 
IF ScanOrQuit$ = "S" THEN CALL ScanFile(NewFile$) 


END 


SUB AppendFile (FileName$) 
' Append information to FileName$ 
' which includes disk drive designation. 


' Initialize and put instructions in lines 21 to 25 
CLS : DEFINT A-Z 
texc$(1) = STRINGS(74, 196) 
text$(2) = "Append records to” + FileName$ 
text$(3) = “Press ENTER to begin.” 
text$(4) = "At prompt (>), type 1 record and press ENTER. 
text$(5) = "То end file, press ENTER without typing data." 
FOR row = 1 TO 5 
LOCATE row + 20, 3: PRINT text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport for appending records, 
' then wait for a keypress to begin. 

VIEW PRINT 1 TO 20 

LOCATE 10, 28: PRINT “Press a key to begin.” 

апукеу$ = INPUTS(1) 

CLS 2 ‘Clears only viewport 


' Open the file for append as file #1, 
' then enter records from keyboard and append to file. 
OPEN FileName$ FOR APPEND AS #1 
DO 
LINE INPUT "» "; record$ 
PRINT 
IF record$ = ^" THEN EXIT DO 
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PRINT #1, record$ 


LOOP 


' Close the file and end the subprogram. 


CLOSE #1 
END SUB 


SUB CopyEdit (OldFile$, NewFile$) 

' Allows you to read a record from an old file 
' Copy a record to a new file 

' or insert a new record in an old file 


' Initialize, print menu, and open viewport 
CLS : DEFINT A-Z 


LOCATE 19, 
LOCATE 20, 
LOCATE 21, 
LOCATE 22, 
LOCATE 23, 
LOCATE 24, 
VIEW PRINT 


3: 
3: 
3: 


PRINT 
PRINT 
PRINT 


: PRINT 


PRINT 
PRINT 


TO 18 


STRING$(74, 196) 

“Туре Menu Instruction (Е, C, I, or Q):” 

^ (R)ead a record from "; OldFile$ 

"^ (C)opy the record on the screen to "; NewFile$ 
(I)nsert a new record before the one on screen" 
" (Quit'; 


' Open files and do selected chore 
OPEN OldFile$ FOR INPUT AS #1 
OPEN NewFile$ FOR OUTPUT AS #2 


DO 
DO 


BEEP: WhatToDo$ = UCASES(INPUTS(1)) 
l: PRINT STRINGS(79, 32); 
LOOP WHILE INSTR("RCIQ*, WhatToDo$) = 0 
SELECT CASE WhatToDo$ 
CASE "R" 
IF NOT EOF(1) THEN 
LINE INPUT #1, OldRecord$ 
CLS 2: PRINT OldRecord$ 


LOCATE 18, 


ELSE 


LOCATE 18, 

END IF 

CASE “С” 
PRINT #2, OldRecord$ 

LOCATE 18, 1: PRINT " Record on screen is copied to "; NewFile$; 

CASE "I" 

| LOCATE 10, 1: PRINT "Type new record and press ENTER:" 


: PRINT "All records have already been read."; 
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LINE INPUT NewRecord$ 
PRINT #2, NewRecord$ 
CLS 2: PRINT OldRecordS 
CASE *Q* 
EXIT DO 
END SELECT 
LOOP 


' Close files and end subprogram 
CLOSE #1, #2 
END SUB 


SUB NameDrive (OldFileS$, NewFile$) 

' Gets drive designation and file name 
CLS 
INPUT “Old File Name"; FromFile$ 
INPUT "Old File Drive"; FromDrive$ 
PRINT 
INPUT "New File Мате“; ToFile$ 
INPUT “New File Drive"; ToDrive$ 


OldFile$ = LEFTS(FromDrive$, 1) + *:" + FromFile$ 
NewFile$ = LEFT$(ToDrive$, 1) + ":" + ToFile$ 
END SUB 


SUB ScanFile (FileToScan$) 
' Scans a previously saved data file 
' Directions displayed at bottom of screen 


' Put instructions in lines 21 to 25. 
text$(1) = STRINGS(74, 196) 
text$(2) = "Scan " + FileToScan$ + " file, one record at a time.” 
text$(3) = "Put the data disk in drive " + LEFT$(FileToScan$, 1) + ".” 
text$(4) = "Press a key to begin. First record will appear on screen." 
text$(5) = "Press space bar to get next record, Q to quit." 
CLS : DEFINT A-Z 
FOR row » 1 TO 5 

LOCATE row + 20, 3: PRINT text$(row); 
NEXT row 


' Define rows 1 to 20 as a viewport, used for scanning records. 
VIEW PRINT 1 TO 20 


' Wait for a key press to begin. 
LOCATE 10, 28: PRINT "Press a key to begin." 
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anykey$ = INPUTS(1) 
CLS 2 "Clears only viewport 


' Open the file to scan for input as file @1. 
OPEN FileToScan$ FOR INPUT AS #1 


' Read one record each time a key other than Q is pressed. 
DO UNTIL EOF(1) 

LINE INPUT #1, record$ 

PRINT record$ 

PRINT 

nextkey$ = INPUTS(1) 

IF UCASES$(nextkey$) = "Q" THEN EXIT DO 
LOOP 


PRINT : PRINT “End of file. Press any key to continue. ’”; 
anykey$ = INPUTS(1) 


' Close the file and end the subprogram 
VIEW PRINT 1 TO 25: CLS 
CLOSE #1 

END SUB 
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Type Menu Instruction (R, C, I, or Q): 
(R)ead a record from b:alphabet.dat 
(C)opy the record on the screen to b:editalph.dat 
(I)nsert a new record before the one on the screen 


(Q)uit 
Now follow these steps: 


1. Press R to read a record. A, the first record in Alphabet.Dat, is 
displayed in the viewport. 


2. Do not copy the letter A. Press R again for another record. The 
letter B appears in the viewport. 


3. Press C to copy the letter B into the EditAlph.Dat file. B is copied 
but remains on the screen. À message confirming the copy appears 
at the bottom of the viewport, just above the instructions, as shown 
in Figure 9-5. 


4. Press Rfor the next record in Alphabet.Dat. The letter C appears, 
but do not copy it. 
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Record on screen is copied to B:EDITALPH.DAT 


Type Menu Instruction (R, C, I, or Q): 
(R)ead a record from B:ALPHABET.DAT 
(C)opy the record on the screen to B:EDITALPH.DAT 
(I)nsert a new record before the one on the screen 


(Q)uit 
Figure 9-5. Output confirming record copy 


5. In the same manner, continue through the alphabet. Read all 
records, A through Z, but copy only B, D, and F into the Edit- 
Alph.Dat file. 


When you have read the last record, any further attempts to read 
a record will display the following message: 


All records have already been read. 


Press Q to quit. The following message is printed, and a beep 
sounds: 


File copy and edit is finished. 
Add additional records to editalph.dat (Y or N)? 


Do not add any more records at this time; press N and then ENTER. 
You are greeted by another two-line message; as follows: 


To scan new file, press S 


To quit, press any key except S 
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Press $ to scan the new file EditAlph.Dat. Press any key to see the 
first record, B. Press the SPACEBAR and the second record, D, appears. 
Press the SPACEBAR again, and the letter F appears. 

Press the SPACEBAR one more time, and the following message 
appears: 


End of file. Press any key to continue. 


Press any key to exit the ScanFile subprogram, and press any key 
again to end the program. You have just created a new file, Edit- 
Alph.Dat, which contains three records, B, D, and F. The records 
were copied from the file Alphabet.Dat. 

Run Program 9-10 again. This time, enter EditAlph.Dat as the 
old filename and Edit2.Dat as the new filename. When the Copy- 
Edit subprogram is called, read the first record of EditAlph.Dat. 
The letter B appears in the viewport. 

Press 1 so that you can insert a record before the letter B. Press 
ENTER. Case I is selected from SELECT CASE. The message “Type 
new record and press ENTER” appears. Press A and then ENTER. 
This inserts the letter A as a record in the Edit2.Dat file before the 
record that holds the letter B. B stays on the screen so that you can 
choose what to do with it from the menu. 

Press C to copy B into Edit2.Dat. The Edit2.Dat file now contains 
the following two records: 


A is record #1 
B is record #2 


In the same way, read the next record (D) from EditAlph.Dat and 
insert the letter C into Edit2.Dat. Then copy D into Edit2.Dat. Do 
the same with the next record (F) from EditAlph.Dat. Insert the 
letter E and then copy the letter F into Edit2.Dat. 

At this point, Edit2.Dat has six records: 


#1 A 
$52 B 
#3 С 
$4 D 
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$5 E 
$6 F 


If you attempt to read another record from EditAlph.Dat, you will 
see the following message: 


File copy and edit is finished. 


Add additional records to edit2.dat (Y or N)? 


This time press Y. This calls the AppendFile subprogram. Press any 
key when the prompt "Press a key to begin" appears. At the 
prompt (>), type the next letter of the alphabet (G) and press ENTER. 
This appends G as a record at the end of the Edit2.Dat file. Con- 
tinue in this manner until you have added as many records as you 
wish. Then press the ENTER key without entering any data to cause 
an exit from the DO. . .LOOP in the AppendFile subprogram. The 
file is closed and the subprogram ends. 
The main program prints the message 


To scan new file, press 5 


To quit, press any key except 5 


You may scan the new file (Edit2.Dat) by pressing $ or end the 
program by pressing any other key. 


Shuffling and Sorting a 
Random-Access File 


Records of random-access files can be more readily searched, re- 
trieved, and sorted than sequential files. The records are num- 
bered and have a fixed length. 

Program 9-11, SHUFFLE AND SORT A RANDOM-ACCESS 
FILE, is a skeleton program that has four subprograms. The sub- 
programs of the skeleton merely print their names and return to 
the main program. The program is written to use the food data file 
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produced by Program 8-2. However, other subprograms can be 
substituted to accommodate other data files. You would also have 
to change the TYPE. ..END TYPE definitions in the main pro- 
gram to match the data file being used. 

Enter the skeleton program and run it. The subprograms are 
called in the following order: 


Program to Shuffle and Sort a Random-Access File 
NameFile subprogram 

ShuffleFile subprogram 

ReadRecords subprogram 

SortFile subprogram 


ReadRecords subprogram 


DECLARE SUB ReadRecords (NumberOfRecordsa) 

DECLARE SUB NameFile (FileName$) 

DECLARE SUB ShuffleFile (FileName$, NumberOfRecords2) 
DECLARE SUB SortFile (NumberOfRecords2Z) 


REM ** SHUFFLE AND SORT A RANDOM-ACCESS FILE ** 
' Using QuickBASIC, Chapter 9 
' Microsoft QuickBASIC 4.5 File: UQB0911.BAS 


' Initialize 
CLS : DEFINT A-Z 
PRINT "Program to Shuffle and Sort a Random-Access File" 


REM яж DEFINE RECORD STRUCTURE ** 
TYPE FoodlItem 

food AS STRING * 18 

kind AS STRING * 15 

calories AS INTEGER 
END TYPE 


Program 9-11. SHUFFLE AND SORT A RANDOM-ACCESS FILE 


306 


Using QuickBASIC 


' Call subprograms 
CALL NameFile(FileName$) 


CALL ShuffleFile(FileName$, NumberOfRecordsZ) 
CALL ReadRecords (NumberOfRecords) 

CALL SortFile(NumberOfRecordsz) 

CALL ReadRecords (NumberOfRecords2) 


' Close the file and end 
CLOSE #1 
END 


SUB NameFile (FileName$) 
' Name the file 

PRINT : PRINT "NameFile subprogram" 
END SUB 


SUB ReadRecords (NumberOfRecords2) 
' Read the records 

PRINT : PRINT "ReadRecords subprogram” 
END SUB 


SUB ShuffleFile (FileName$, NumberOfRecords2) 
' Suffle the records 

PRINT : PRINT "ShuffleFile subprogram” 
END SUB 


SUB SortFile (NumberOfRecords%) 

' Sort the records in alphabetical order 
PRINT : PRINT "SortFile subprogram” 

END SUB 


Program 9-11. SHUFFLE AND SORT A RANDOM-ACCESS FILE (cont'd) 


You can see that the file is named first. Then the records are 
shuffled. The records are displayed in random order by the Read- 
Records subprogram. The file is then sorted alphabetically accord- 
ing to the food name that appears as the first field of each record. 
The ReadRecords subprogram is called again, and it displays the 


sorted records. 
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REM «« PRO9-12 NameFile Subprogram - Use View Menu to see «x 


SUB NameFile (FileName$) 
' Name the file 
PRINT 
INPUT "File name with extension"; FileName$ 
INPUT "Disk drive"; Drive$ 
PRINT : PRINT "Put "; FileName$; " disk in drive "; Drive$ 
FileName$ = LEFT$(Drive$, 1) + ":" + FileNameS 
PRINT "Press any key to continue." 
anykey$ = INPUT$(1) 
END SUB 


Program 9-12. NAMEFILE SUBPROGRAM 


Adding the NameFile 
Subprogram 


The NameFile subprogram is similar to the NameDrive subpro- 
gram used in Program 9-5. It is given a different name in this 
program to distinguish it from the NameDrive subprogram. If you 
save subprograms separately, this will help to avoid confusion 
when you want to merge one of the subprograms with a main 
program. Replace the temporary NameFile subprogram in Pro- 
gram 9-11 with Program 9-12, NameFile Subprogram. 

The new subprogram prompts you for the filename and disk 
drive to be used and reminds you to put the appropriate disk in the 
drive. It then stops for a keypress. When you press a key, control 
passes back to the main program. Test this part of the program to 
make sure it works correctly. 


Adding the ShuffleFile 
Subprogram 


The ShuffleFile subprogram declares FoodRecord and Food Temp 
as Foodltem types by the following DIM statements: 
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DIM FoodRecord AS FoodItem 
DIM FoodTemp AS FoodItem 


File number 1 is opened for random access, and the number of 
records is calculated. 
The random-number generator is seeded by the statement 


RANDOMIZE TIMER 


Thus, a new sequence of random numbers is generated each time 
the program is run, since the timer is continually changing when 
the computer is on. 

A FOR. . .NEXT loop assigns increasing integer values (from ! 
through the number of records in the file) to the value k. Each time 
k changes, a new random number is assigned to the variable rndin- 
dex. A GET statement reads FoodTemp. 


GET *1, k, FoodTemp 


Another GET statement reads FoodRecord from record number 
rndindex. 


GET *1, rndindex, FoodRecord 


Therefore, FoodTemp is read from record k, and FoodRecord is 
read from record rndindex. 

PUT statements are used to put the records back in the file, but 
the positions of the records are changed. 


PUT #1, k, FoodRecord 
PUT #1, rndindex, FoodTemp 


The loop is executed for as many times as there are records in the 
file. When an exit is made from the loop, the subprogram ends and 
control is passed back to the main program. Replace the temporary 
ShuffieFile subprogram with Program 9-13, ShuffleFile Subpro- 
gram. 
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REM жє PRO9-13 ShuffleFile Subprogram - Use View Menu to see xx 


SUB ShuffleFile (FileName$, NumberOfRecords) 
' Shuffle the records 
'Initialize and open file 
DEFINT A-Z 
DIM FoodRecord AS FoodItem 
DIM FoodTemp AS FoodItem 
OPEN FileName$ FOR RANDOM AS #1 LEN = LEN(FoodRecord) 


' Find number of records, then shuffle records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 
RANDOMIZE TIMER 
FOR k = 1 TO NumberOfRecords 
rndindex = INT(NumberOfRecords * RND(1)) + 1 
GET #1, k, FoodTemp 
GET #1, rndindex, FoodRecord 
PUT #1, k, FoodRecord 
PUT #1, rndindex, FoodTemp 
NEXT k 
CLS 
PRINT "Records are now shuffled in the following order:" 
END SUB 


Program 9-13. SHUFFLE SUBPROGRAM 


REM жж PRO9-14 ReadRecords Subprogram - Use View Menu to see ww 


SUB ReadRecords (NumberOfRecords2Z) 

' Read each record and print to the screen 
' Initialize 
DEFINT A-Z 
DIM FoodRecord AS FoodItem 


' Get records and print by fields 

FOR RecordNumber » 1 TO NumberOfRecords 
GET *1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 

NEXT RecordNumber 


' Print end of file prompt and wait for keypress 
PRINT : PRINT "End of file. Press any key to continue." 
anykey$ = INPUT$(1) 

END SUB 


Program 9-14. READRECORDS SUBPROGRAM 
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Records are now shuffled in the following order: 


Avocado fresh 48 
Cabbage raw 7 

Broccoli cooked 7 

Cottage Cheese creamed 30 
Banana fresh 24 

Cake devil's food 105 
Blueberries fresh 18 
Biscuits homemade 105 
Carrots raw 12 

Apple fresh 15 

Beans lima-cooked 32 
Chicken roasted 83 
Beef chuck-cooked 93 
Bass sea-cooked 74 
Bread whole wheat 69 
Cake angel food 77 
Butter salted 205 


End of the file. Press any key to continue. 


Figure 9-6. Output of scrambled records 


Adding the ReadRecords 
Subprogram 


Program 9-14, ReadRecords Subprogram, reads and displays the 
records as they are presently stored in the file. Replace the tem- 
porary ReadRecords subprogram with the new one. Now you can 
run Program 9-11 and test all three subprograms. Results of the 
test runs will vary as new random values are used in exchanging 
the records in the ShuffleFile subprogram. Figure 9-6 shows a 
typical output of the ReadRecords subprogram after the records 
have been scrambled. 


Adding the SortFile 
Subprogram 


Program 9-15, SortFile Subprogram, uses PUT and GET state- 
ments to sort the scrambled file into alphabetical order by food 
name. 
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REM хя PRO9-15 SortFile Subprogram - Use View Menu to see x» 


SUB SortFile (NumberOfRecordsz) 
' Sort the records alphabetically 


' Initialize 

DEFINT А-2 

DIM FoodRecord AS FoodItem 
DIM FoodTemp AS FoodItem 


' Sort records 
CLS : PRINT "Sorting file" 
top = 1 
DO WHILE top « NumberOfRecords 
FOR here = NumberOfRecords TO top + 1 STEP -1 
СЕТ #1, here, FoodTemp 
GET #1, here - 1, FoodRecord 
A$ = FoodTemp.food: В$ = FoodRecord.food 
IF AS < BS THEN 
PUT #1, here, FoodRecord 
PUT #1, here - 1, FoodTemp 
END IF 
NEXT here 
top = top + ] 
LOOP 
CLS : PRINT "Records are now sorted in the following order:" 
END SUB 


Program 9-15. SORTFILE SUBPROGRAM 


A DO. . .LOOP contains a simple bubble sort that reorders the 
array. The bubble sort is probably the best known of all sorting 
routines, because of its simplicity. It makes comparisons of adjacent 
records and exchanges the records if they are out of order. The 
records seem to “bubble” to the top as they are sorted. GET 
statements are used to read adjoining records. If they are out of 
order, PUT statements are used to exchange their positions in the 
file. 

Each character in a string has an ASCII value. For example, the 
ASCII value of A is 65. The ASCII value of Z is 90. Lowercase letters 
range from 97 for a to 122 for z. Therefore, when the records in 
string format are being sorted, it is the ASCII values that are being 
compared. 
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The following exchanges take place in sorting a shuffled file 
containing four food records: 


Original First Second Third Fourth 
Array Exchange Exchange Exchange Exchange 
Cake Cake Apple Apple Apple 
Avocado Apple Cake Avocado Avocado 
Apple — Avocado Acad Cake "Banana 
Banana Banana Banana Banana Cake 


Replace the temporary SortFile subprogram with the new one. 
Then, test the complete Program 9-16, FINAL SHUFFLE AND 
SORT A RANDOM-ACCESS FILE, and save it as UQB0916.BAS. 

Figure 9-7 shows the shuffled file of Figure 9-6 after it has been 
sorted. 


DECLARE SUB ReadRecords (NumberOfRecordsZ) 

DECLARE SUB NameFile (FileName$) 

DECLARE SUB ShuffleFile (FileName$, NumberOfRecords2) 
DECLARE SUB SortFile (NumberOfRecords%) 


Program 9-16. FINAL SHUFFLE AND SORT A RANDOM-ACCESS FILE 
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REM ** FINAL SHUFFLE AND SORT A RANDOM-ACCESS FILE ** 
' Using QuickBASIC, Chapter 9 
' Microsoft QuickBASIC 4.5 File: UQBO916.BAS 


' Initialize 
CLS : DEFINT A-Z 
PRINT "Program to Shuffle and Sort a Random-Access File" 


REM ** DEFINE RECORD STRUCTURE ** 
TYPE FoodItem 

food AS STRING * 18 

kind AS STRING * 15 

calories AS INTEGER 
END TYPE 


' Call subprograms 
CALL NameFile(FileName$) 


CALL ShuffleFile(FileName$, NumberOfRecords2) 
CALL ReadRecords (NumberOfRecords2) 

CALL SortFile(NumberOfRecords2) 

CALL ReadRecords (NumberOfRecords2) 


' Close the file and end 
CLOSE #1 
END 


SUB NameFile (FileName$) 
' Name the file 
PRINT 
INPUT “File name with extension”; FileName$ 
INPUT "Disk drive"; Drive$ 
PRINT : PRINT "Put "; FileName$; " disk in drive °; Drive$ 
FileName$ = LEFT$(Drive$, 1) + ":" + FileNameS$ 
PRINT "Press any key to continue.” 
anykey$ = INPUT$(1) 
END SUB 


SUB ReadRecords (NumberOfRecordsZ) 

' Read each record and print to the screen 
' Initialize 
DEFINT A-Z 


Program 9-16. FINAL SHUFFLE AND SORT A RANDOM-ACCESS FILE 
(continued) 
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DIM FoodRecord AS FoodItem 


' Get records and print by fields 

FOR RecordNumber = 1 TO NumberOfRecords 
GET *1, RecordNumber, FoodRecord 
PRINT FoodRecord.food; FoodRecord.kind; 
PRINT FoodRecord.calories 

NEXT RecordNumber 


' Print end of file prompt and wait for keypress 
PRINT : PRINT "End of file. Press any key to continue." 
anykey$ = INPUTS$(1) 

END SUB 


SUB ShuffleFile (FileName$, NumberOfRecords%) 
' Shuffle the records 
'Initialize and open file 
DEFINT A-Z 
DIM FoodRecord AS FoodItem 
DIM FoodTemp AS FoodItem 
OPEN FileName$ FOR RANDOM AS «1 LEN s LEN(FoodRecord) 


' Find number of records, then shuffle records 
NumberOfRecords = LOF(1) \ LEN(FoodRecord) 
RANDOMIZE TIMER 
FOR k = 1 TO NumberOfRecords 
rndindex = INT(NumberOfRecords * RND(1)) + 1 
GET #1, k, FoodTemp 
GET #1, rndindex, FoodRecord 
PUT #1, k, FoodRecord 
PUT #1, rndindex, FoodTemp 
NEXT k 
CLS 
PRINT “Records are now shuffled in the following order:” 
END SUB 


SUB SortFile (NumberOfRecords£) 
Sort the records alphabetically 


' Initialize 

DEFINT A-Z 

DIM FoodRecord AS FoodlItem 
DIM FoodTemp AS FoodItem 


Program 9-16. FINAL SHUFFLE AND SORT A RANDOM-ACCESS FILE 
(continued) 
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' Sort records 
CLS : PRINT "Sorting file” 
top = 1 
DO WHILE top < NumberOfRecords 
FOR here = NumberOfRecords TO top + 1 STEP -1 
СЕТ "l, here, FoodTemp 
GET *1, here - 1, FoodRecord 
AS = FoodTemp.food: B$ = FoodRecord. food 
IF AS « B$ THEN 
PUT #1, here, FoodRecord 
PUT #1, here - 1], FoodTeup 
END IF 
NEXT here 
top = top + 1 
LOOP 
CLS : PRINT "Records are now sorted in the following order:" 
END SUB 


Program 9-16. FINAL SHUFFLE AND SORT A RANDOM-ACCESS FILE 
(continued) 


Records are now sorted in the following order: 
Apple fresh 
Avocado fresh 

Banana fresh 

Bass sea-cooked 
Beans lima-cooked 
Beef chuck-cooked 
Biscuits homemade 
Blueberries fresh 

Bread whole wheat 
Broccoli cooked 
Butter salted 
Cabbage raw 

Cake angel food 
Cake devil's food 
Carrots raw 

Chicken roasted 
Cottage Cheese creamed 


End of the file. Press any key to continue. 


Figure 9-7. A sorted file 
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This chapter demonstrated various ways to create and manipulate 
data in sequential and random-access files. Subprograms were 
written as individual files and merged with a main program to form 
a complete program that performed several functions. 

Program 9-5 contained subprograms to copy and scan a se- 
quential file. Program 9-10 contained subprograms to append data 
to a sequential file, read data from a file, copy data from one file to 
another, insert data between records, and scan a sequential file. 
Program 9-16 scrambled records randomly and then sorted them 
in alphabetical order. 


Dynamic 
Debugging 


Bugs creep into programs just as they do into other places. Some- 
times programs look good on paper but misbehave when they are 
run on the computer. À program bug causes the misbehavior. This 
chapter shows how to use QuickBASIC's debugging tools to pre- 
vent bugs, find bugs that prevent the proper running of a pro- 
gram, and find bugs that make programs misbehave. 

If you have programmed in GW-BASIC, you have probably 
used such tools as STOP, PRINT, CONT, TRON, and TROFF 
statements to help find programming bugs. If you have pro- 
grammed with a compiled version of BASIC, you may have de- 
bugged programs with a "symbolic debugger" that allows you to 
follow the flow of a program while watching what the program 
does. 

QuickBASIC combines the easy-to-use debugging features of 
GW-BASIC with the powerful features of a symbolic debugger. 
QuickBASIC's debugging tools can be used while you are working 
on a QuickBASIC program. 
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In this chapter you will learn about 


Tracing 


Watch expressions 


Watchpoints 


Breakpoints 


A QuickBASIC feature that 
shows you which statement of 
your program is being 
executed. Tracing includes 
commands to run one state- 
ment at a time, to animate exe- 
cution so that each statement is 
highlighted as it is executed, 
and to trace backward or for- 
ward through the last 20 state- 
ments that have been executed. 
Expressions that allow you to 
observe the value of variables 
or expressions in your program 
while the program is being 
run. 

Expressions that stop a pro- 
gram when the expression be- 
comes true. 

Locations in your program 
where you want execution to 
stop temporarily to allow you 
to test parts of the program or 
examine a variable's value. 


The best way to develop bug-free programs is to reduce the num- 
ber of possible points where bugs may enter. Bug prevention starts 
with program planning. Here are some preventive measures: 


W Design your program carefully before you sit down at the key- 
board. List the tasks that you want the program to perform. Then 
write your programs as SUB or FUNCTION procedures. A short 
procedure is much easier to debug than a long program. 


B Use the Immediate window at the bottom of the screen to isolate 
and test small pieces of your program. When you get the pieces 
working on their own, move them into the main body of your 


program. 
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w Run each new part of your program several times within the 
context of the rest of the program. These checks help catch simple 
bugs that could be hard to track in a long, finished program. 


W Use the debugging tools described in this chapter. 


The Debug Menu 


Although other QuickBASIC menus contain commands that you 
often use when debugging, most of the debugging tools are im- 
plemented by commands from the Debug menu. The Debug 
menus for Easy menus and Full menus are shown in Table 10-1. 
Notice that the Debug menu for Full menus has several more 
features than the other menu. The Debug Full menu will be used 
in this chapter. 


Debug menu for Easy menus Debug menu for Full menus 
Add Watch Add Watch 
Instant Watch Instant Watch 
Delete Watch Watchpoint 
Delete Watch 
Toggle Breakpoint Delete All Watch 
Clear All Breakpoints 
Trace On 
History On 


Toggle Breakpoint 
Clear All Breakpoints 
Break on Errors 

Set Next Statement 


Table 10-1. Debug Menus for Easy and Full Menus 
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Tracing a Program 


Tracing a program shows which statement of your program is 
being executed. QuickBASIC provides the following tracing fea- 


tures: 

Single Step Pressing the F8 key runs one 
statement of a program at a 
time. 

Procedure Step Works like Single Step but 
treats procedures as one step. 

Trace On Provides "animated" execution 


so that each statement is high- 
lighted when it is executed. 
The last 20 statements that 
were executed are recorded for 
review purposes. 


Program 10-1, TIME TEST, clears the screen and sets the value 
of the computer's system timer to the variable start. Within the 
DO. . .LOOP, the difference between the present value of the timer 
and the starting value is calculated and assigned to the variable 
ElapsedTime. This value is printed on the screen. 

Enter the program. When you run the program, count to ten 
and press СТКІ + BREAK to stop it. Figure 10-1 shows a typical output 


REM ** TIME TEST ** 
' Using QuickBASIC, Chapter 10 
' Microsoft QuickBASIC 4.5 File: UQB1001.BAS 


REM ** Check Time Passing ** 

CLS : DEFINT A-Z 

Start* = TIMER 

FOR number = 1 TO 15 
ElapsedTime* = TIMER - start* 
PRINT number, ElapsedTimes 

NEXT number 

END 


Program 10-1. TIME TEST 
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Features 

1 0 

2 0 

3 0 

4 0 

5 .0625 

6 .0625 

7 .0625 

8 .0625 

9 .0625 

10 .0625 

11 .0625 

12 .11328125 
13 .11328125 
14 .11328125 
15 „11328125 


Press any key to continue 


Figure 10-1. Output of Program 10-1 using no debug features 


ofa run. The actual elapsed times will vary depending on the speed 
of the computer used. 


Trace On 


After testing the program, access the Debug menu. Move the high- 
light down to Trace On and press ENTER. The View window is 
immediately displayed. Access the Debug menu again. Figure 10-2 
shows a diamond next to Trace On, indicating that the feature is 
active. Pressing the ENTER key when Trace On is highlighted toggles 
the Trace On "switch," turning it on (diamond present) or off 
(diamond absent). 

With Trace On active, run the program from the Run menu. 

Trace On slows down the program considerably. QuickBASIC 
single-steps through the program, and each statement is high- 
lighted as it is executed. This is called an animated trace. It can be 
used in combination with other debugging features described later 
in this chapter. You can use it to determine the general flow of your 
program to see whether or not the program is behaving as in- 
tended. 


322 Using QuickBASIC 


Add Watch. . . 
Instant Watch. . . 
Watchpoint. . . 
Delete Watch. . . 
Delete All Watch. 


Trace On 
History On 


Toggle Breakpoint 
Clear All Breakpoints 
Break on Errors 

Set Next Statement 


Figure 10-2. Debug menu showing Trace On activated 


When you run an animated trace of Program 10-1, the trace 
skips over any remarks and highlights the CLS statement. DEFINT 
A-Z is not highlighted because it is not an executable statement. 


REM ** Check Time Passing ** 

CLS| : DEFINT A-Z 

Start* » TIMER 

FOR number = 1 TO 15 
ElapsedTime* = TIMER - start* 
PRINT number, ElapsedTime* 

NEXT number 


The start# = TIMER statement is highlighted next. 


REM ** Check Time Passing ** 

CLS : DEFINT A-Z 

FOR number = 1 TO 15 
ElapsedTime# = TIMER - starts 
PRINT number, ElapsedTime* 

NEXT number 
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Then the FOR statement is highlighted. 


REM ** Check Time Passing ** 
CLS : DEFINT A-Z 
start# = TIMER 


ElapsedTime* = TIMER - start* 


PRINT number, ElapsedTime* 
NEXT number 


The highlight then cycles 15 times through the next three 
statements as the FOR. . .NEXT loop is executed. 


FOR number = 1 TO 15 


p g m HER 


PRINT number, ElapsedTime® 
NEXT number 


FOR number = 1 TO 15 


er = TIMER - start# 


NEXT number 


FOR number = 1 TO 15 
ElapsedTime* = TIMER - start# 


PRINT number, ере 


The END statement is the last statement that is highlighted. 
Then the highlight is turned off. 

The program ends with the program displayed in the View 
window. To see what has been printed, press the F4 key. This 
displays the output screen, as shown in Figure 10-3. Compare the 
timing results with those in Figure 10-1. Once again, the times will 
vary according to the computer used, but you will see that the 
program slows down considerably when Trace On is active. Press 
F4 to return the program to the View window. 


P» REMEMBER Press H to toggle between the Output screen and 
the View window. 
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1 ‚76953125 

2 2.41796875 

3 4.0078125 

4 5.66015625 

5 7.25 

6 8.8984375 

7 10.55078125 
8 12.140625 

9 13.7890625 

10 15.37890625 
11 17.03125 

12 18.6796875 

13 20.26953125 
14 21.91796875 
15 23.5703125 


Figure 10-3. Output of Program 10-1 with Trace On 


You can tell if the program flow is correct by watching the 
program execute with Trace On, but you can slow things down 
even more with the Single Step debugging feature. 


Single Step 


You can completely control the program’s execution with the Sin- 
gle Step debugging command. Using Program 10-1 again, exper- 
iment with the Single Step command. Do not start the program 
from the Run menu; instead, press F8 to highlight the first execut- 
able statement in the program. 

Single Step is activated by the F8 key. It moves through one 
executable step of the program each time you press the F8 key. The 
CLS statement is highlighted first, just as it was when the program 
was run with Trace On. The highlighted statement is not executed 
until you press F8 again. Pressing F8 executes the highlighted state- 
ment and moves the highlight on to the next executable statement. 

Continue pressing F8 and watch the highlight move through the 
program as it executes one statement at a time. This may seem 
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tedious, but there will come a time when you will want to watch 
each individual step to find a program bug. 

When you have stepped through the entire program (including 
the END statement), press F4 to see the output. You will notice a 
change in timing from that of the program run previously. Unless 
you have very fast fingers, the times will be greater for the Single 
Step version. Figure 10-4 shows the output from a slow but steady 
pressing of the F8 key. Notice that these times are almost twice as 
great as those in the previous run. 


Procedure Step 


In order to demonstrate tracing by Procedure Step, you must have 
a program that contains a procedure. Enter Program 10-2, BAK- 
ER'S DOZEN SHUFFLE. Procedure Step executes in the same way 
as Single Step, but it executes the procedure as one giant step; this 
is called "stepping over the procedure." You do not see the indi- 
vidual steps made in the procedure. 


1 1.859375 

2 4.66015625 
3 730078125 
4 9.87890625 
5 12.34765625 
6 14.76953125 
7 17.62890625 
8 20.48046875 
9 23.390625 
10 26.25 

11 29 

12 31.73828125 
13 34.59765625 
14 37.55859375 
15 40.48046875 


Figure 10-4. Output of Program 10-1 using Single Step 
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Procedure Step is activated by the F10 key. Its action is similar to 
Single Step, except that it treats an entire procedure as a single 
step. All the steps in the procedure are executed, but you see only 
the result of the procedure call. 

Before trying out Procedure Step, run the program in the usual 
manner with Trace On. The program contains a timing portion so 
that you can compare the time it takes to shuffle when using Trace 
On with the time it takes to shuffle when you "step over" 


DECLARE SUB Shuffle (array%()) 

REM ** BAKER'S DOZEN SHUFFLE жж 

' Using QuickBASIC, Chapter 10 

' Microsoft QuickBASIC 4.5 File: UQB1002.BAS 


' Dimension numbers as an integer array 
DIM numbers%(1 TO 13) 
CLS : DEFINT A-Z 


' Create array and shuffle the elements 
FOR k = 1 TO 13 

numbersz(k) = k 
МЕХТ К 


CALL Shuffle(numbersZz()) 
END 


SUB Shuffle (array%()) 
' Shuffles the 13 element array; 
' prints the array and times execution 
start* = TIMER 
FOR k = 1 TO 13 
rndindex = INT(13 * RND(1)) + 1 
SWAP array%(k), array%(rndindex) 
NEXT k 
ElapsedTime* = TIMER - start# 
FOR k » 1 TO 13 
PRINT array%(k); 
NEXT k 
PRINT : PRINT “Elapsed Time ="; ElapsedTime* 
END SUB 


Program 10-2. BAKER'S DOZEN SHUFFLE 
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the SUB procedure. When the run is completed, press F4 to see the 
output. Write it down for a later comparison. Then press H to 
return to the View window. 

Here is the result of a typical Trace On output: 


9 7 8 5 4 12 10 1 6 3 2 13 11 
Elapsed Time = 19.94140625 


Now, try the Procedure Step method. Do not run the program 
from the Run menu; instead, use the ЕЮ key to procedure-step 
through the program. The main program is single-stepped, just as 
when the F8 key was used in Single Step, until the CALL statement 
is reached. 


FOR k » 1 TO 13 
number%(k) = k 
NEXT k 


CALL u e(number 


END 


When you press Е10 this time, the subprogram is executed, and 
the highlight steps to the END statement in the main program that 
follows the CALL statement. Press F10 again and the program ends. 

Look at the output by pressing the f4 key. The following is a 
typical result. 


9 7 8 5 4 12 10 1 6 3 2 13 211 
Elapsed Time = .5 


Compare the output shown for the previous Trace On run with this 
result. Notice the difference in time to execute the shuffle. Press F4 
to return to the View window. 

The Trace On toggle does not affect the Single Step or Proce- 
dure Step actions. If you want to turn off Trace On, access the 
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Debug menu, highlight Trace On, and press the ENTER key. If Trace 
On is marked by a diamond, toggling it from the Debug menu 
removes the diamond and deactivates the feature. If Trace On is 
not marked by a diamond, toggling it from the Debug menu places 
a diamond in front of the menu item and activates the feature. 


Watching a Program 


In addition to tracing a program, you can interrupt a program run 
at a specified watchpoint. You can then single-step or procedure- 
step through the program from that point. You can also watch 
specified expressions as the program is executed. 

A Watch window opens at the top of the screen whenever you 
choose Watchpoint or Add Watch from the Debug menu. The 
name of each variable or expression that you choose to watch 
appears in the Watch window. As a program is executed, you can 
watch the values of the variables or expressions change. - 


Watch window 


View window 


Immediate window 


Use Program 10-3, BAKER'S DOZEN SHUFFLE WITH SORT, 
to experiment with the Watch commands in the Debug menu. This 
program is similar to Program 10-2; however, the FOR. .. NEXT 
loop that prints the array of numbers has been moved to a separate 
SUB procedure, and all timing statements have been removed. 
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The name of the number array is arvay%. It is dimensioned and 
shared by the main program and all SUB procedures by the exe- 
cution of the following statement: 


DIM SHARED arrayz(l TO 13) 


DECLARE SUB BubbleSort () 

DECLARE SUB PrintArray () 

DECLARE SUB Shuffle () 

REM ** BAKER'S DOZEN SHUFFLE WITH SORT ** 

' Using QuickBASIC, Chapter 10 

' Microsoft QuickBASIC 4.5 File: UQB1003.BAS 


' Dimension numbers as an integer array 
DIM SHARED arrayt(l TO 13) 
CLS : DEFINT A-Z 


' Create array and shuffle the elements 
FOR k = 1 TO 13 

array%(k) = К 
NEXT k 


CALL Shuffle 
CALL PrintArray 


CALL BubbleSort 
CALL PrintArray 


END 


DEFINT A-Z 
SUB BubbleSort 
top = l 
DO WHILE top « 13 
FOR here = 13 TO top + 1 STEP -1 
IF arrayZ(here) < arrayZ(here - 1) THEN 
SWAP array%(here), arrayZ(here - 1) 
END IF 
NEXT here 
top = top + l 
LOOP 
END SUB 


SUB PrintArray 
FOR k2 = 1 TO 13 
PRINT array%(k2); 
NEXT k2 


Program 10-3. BAKER'S DOZEN SHUFFLE WITH SORT 
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PRINT 
END SUB 


SUB Shuffle 


' Shuffles the 13 element array 
pnt = 1 
FOR kl = 1 TO 13 
rndindex = INT(13 * RND(1)) + 1 
SWAP array%(kl), arrayZ(rndindex) 


NEXT kl 
pnt = 2 
END SUB 


Program 10-3. BAKER'S DOZEN SHUFFLE WITH SORT (continued) 


Watchpoint and 
Add Watch 


Watchpoint allows you to watch for expressions that will suspend 
program execution when the expressions become true. A bubble 
sort is used in Program 10-3 to sort the number array after the 
array has been shuffled and printed. The SUB procedure CALL 
statements are now 


CALL Shuffle 
CALL PrintArray 


CALL BubbleSort 
CALL PrintArray 


The PrintArray subprogram is called after the numbers have 
been shuffled and again after the BubbleSort subprogram. There- 
fore, you can see the shuffled array and the final sorted array of 
numbers. A RANDOMIZE statement is not used to seed the 
random-number generator in the Shuffle SUB. Therefore, the 
same sequence of numbers will be used for the variable rndindex. 
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It would take quite a bit of time to single-step through this 
program, since it is longer than Program I0-2. You can run the 
program from the Run menu with Trace On. Use a watchpoint to 
suspend the program when it gets to the Shuffle subprogram. The 
Watchpoint statement is false until the execution of the first exe- 
cutable statement in the subprogram: 


SUB Shuffle 

' Shuffles the 13 element array 
pnt = 1 4—— — — — First executable statement 
FOR k = 1 TO 13 of the program 


When this statement becomes true, the execution of the program 
is suspended. 

At this point, single-step through Shuffle by using the r8 key. 
You can watch the swaps take place as the array of numbers is 
shuffled by adding some Watch expressions. After single-stepping 
through the Shuffle SUB, use the Fio key to procedure-step 
through the rest of the program. 

Enter Program 10-3, and save it in text format as 
UQB1003.BAS. Then access the Debug menu, move the highlight 
to Trace On, and press ENTER. 

Put the Shuffle SUB in the View window from the View menu. 
Access the Debug menu again, move the highlight to Watchpoint, 
and press ENTER. A dialog box appears, as shown in Figure 10-5. 


Watchpo int 
Enter expression (vill break when TRUE): 


ee a 220] 


Gorg < Cancel > < Help > 


Figure 10-5. Watchpoint dialog box 
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Enter pnt = 1 as the Watchpoint expression, and press ENTER. A 
Watch window is opened above the View window; it lists the watch- 
point that you just set. 


Shu e pnt = 1: «FALSE» 


Since the program has not started yet, the Watchpoint pnt = 1 
is false, as indicated in the Watch window. 

It would be interesting to watch the variables kJ and rndindex 
and the array elements numbers%(k) and numbers9o(rndindex) as they 
change while the shuffle is being executed. To put these variables 
in the Watch window, place SUB Shuffle in the View window, if it 
is not already there. Then access the Debug menu and select the 
Add Watch command. When you press ENTER, the dialog box shown 
in Figure 10-6 appears. 

Type kl as the expression to be added to the Watch window, 
and press ENTER. You are returned to the View window. The Watch- 


fidd Watch 
Enter expression to be added to Watch window: 


= аса 


Borg < Cancel > < Help > 


Figure 10-6. Add Watch dialog box 
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point pnt = 1 appears in the Watch window at the top of the screen 
just ahead of the variable k1. 


Shuffle pnt = 1: «FALSE» 
Shuffle kl: 


Access the Add Watch command dialog box from the Debug 
menu again, and enter rndindex as the name of the expression to be 
added to the Watch window. The Watch window now shows 


Shuffle kl » 1: «FALSE» 
Shuffle kl: 


Shuffle rndindex: 


Go to the Debug menu two more times and add the array 
variables array%(k) and array%(rndindex). You now have four vari- 
ables to watch and one watchpoint to suspend the program at the 
point where you can watch the variable values change as each 
single step of the Shuffle subprogram is executed. The Watch 
window has now grown to include the following items: 


Shuffle kl = 1: «FALSE» 
Shuffle kl: 
Shuffle rndindex: 


Shuffle arrayX(kl): 
Shuffle arrayz(rndindex): 


Turn Trace On from the Debug menu. You are now ready to run 
the program. 
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Access the Run menu. With the Start command highlighted, 
press ENTER. Keep your eyes on the Watch window as the program 
runs. The Watchpoint fnt = 1 is FALSE at this point. The four 
variables of the Shuffle subprogram display the message “<Not 
watchable>” because the subprogram has not been reached yet; 
their values are unknown at this time. 

A watchpoint allows you to pass quickly through the program 
until you reach a specified location. Then you can single-step 
through that part of the program following the watchpoint to 
watch single statement results. 

The program steps quickly through each statement in the pro- 
gram until it executes the statement pnt = 1 in the Shuffle sub- 
program. The execution ofthe program is then suspended because 
the Watchpoint pnt = 1 is now true, as shown in the Watch window. 


Shuffle kl = 1: «TRUE» 
Shuffle kl: 0 
Shuffle rndindex: 0 


Shuffle array%(kl): Subscript out of range 
Shuffle arrayZ(rndindex): Subscript out of range 


The FOR statement is highlighted. Now, use the F8 key to 
single-step through the Shuffle subprogram. Watch the array ele- 
ments swap places when rndindex differs from k1. The first two 
swaps occur as shown in Table 10-2. 

Single-step through the entire FOR. ..NEXT loop. As the 
FOR. . .NEXT loop is executed, the variable rndindex is assigned a 
random integer (1 to 13). A swap is made between array%(k1) and 
array%o(rndindex). This swaps two elements of the number array. If 
k1 and rndindex have the same value, the value of array%(k1) does 
not change. Then kJ is incremented by 1 for another pass through 
the loop. 

The random-number sequence generated for the variable rnd- 
index is 10, 7, 8, 4, 4, 11, 1, 10, 11, 10, 1, 6, 12. This same sequence 
will be generated each time the program is run unless you insert a 
RANDOMIZE statement (mentioned earlier in this section) before 
the FOR. . .NEXT loop is executed. 
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First Pass through FOR. . .NEXT Loop 


Highlighted Statement 


T 


Variable Watched NEXT kl 
kl 
rndindex 
array%(k1) 


array%(rndindex) Swap made 


Second Pass through FOR. . .NEXT Loop 


Highlighted Statement 


Variable Watched NEXT kl 
kl 
rndindex 
array%(k1) 
array%(rndindex) 


wows bo 


! Swap made 


Table 10-2. Watch Variables јот Swap! and Swap2 


Table 10-3 shows the values of the elements of array%(k1) after 
the SWAP statement has been executed for each pass through the 
loop. The array elements that were swapped are circled. 

When an exit is made from the Shuffle subprogram, keep press- 
ing the FI0 key to execute the BubbleSort subprogram. Press the F10 
key again to execute the PrintArray subprogram. This subprogram 
prints the final order of the array. Press the Fld key once more to 
end the program. 

Press the F4 key to access the output screen. The original shuf- 
fled order and the final sorted order are displayed. 
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4 12 10 16 3 2 13 11 
5.6 7 8 9 10 11 1 13 


To turn off watchpoints and Watch expressions, access the 
Debug menu, select Delete All Watch, and press ENTER. Access the 
Debug menu again, move the highlight to Trace On, and press 
ENTER to toggle Trace Off. 


Breakpoint and Instant 
Watch 


A breakpoint is a location in your program that causes your program 
to stop execution. You can set these locations from the Toggle 
Breakpoint command of the Debug menu or by pressing the F9 key 
without going to the Debug menu. 

Breakpoints can be used to test individual parts of programs. 
You can also insert breakpoints at strategic points to stop a pro- 
gram so that you can examine a variable's value at that point. This 
is a valuable tool that can be used to locate places where a program 
is misbehaving. 


Array Positions 


2 3 4 5 6 T 8 9 ©) 11 12 13 
@) 3 4 5 6 (2 8& 9 Y n m i 
7 4 5 6 Y (Зз) 9 1 n 12 18 
7 Š 4 5 6 2 3 9 1 n 1) 18 
7 8 (5) (3 6 2 3 9 1 1 12 18 
7 8 5 X (п) 2 s 9 1 @ 12 18 
7 8 5 4 1 з 9 1 6 12 18 
7 8 5 4 n 0 (7) 9 (3) 6 12 13 
7 8 5 4 n 10 Y (6) 5 (9) m 13 
7 8 5 4 1110 1 6 3 9 12 13 
7 8 5 4 n 1 1 6 з (2) }2 13 
7 8 5 4 10 1 6 з 5 (1) 13 
7 8 5 4 1 10 1 6 з 2 (9(% 


Table 10-3. Array% Elements After Swaps 
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Instant Watch displays the value of a variable or the condition 
of an expression (true or false) when program execution has been 
stopped. It is convenient to use when you do not need to monitor 
a variable continually but wish to check its value at certain times 
when the program is no longer running —such as at a breakpoint. 

The use of breakpoints and Instant Watch can be demonstrated 
by introducing a program bug into Program 10-3. Put the Bub- 
bleSort subprogram in the View window. Then move the cursor to 
the statement 


top = top + 1 
Change the right side of the equation so that it reads 
top = top + 2 


Run Program 10-3 with this change, and pretend you do not 
know you have made the error in entering the above statement. 
The numbers are shuffled and printed in the following order: 


4 12 10 1 6 3 2 13 11 
3 8 4 5 6 10 11 12 13 


The numbers are not sorted in the proper order. Something must 
be wrong with the BubbleSort subprogram! 

To look for a bug in this part of the program, place the Bub- 
bleSort subprogram in the View window. Then move the cursor to 
the location where you want to set a breakpoint. For example, 
move it to the LOOP statement at the end of the DO. . .LOOP. 

With the cursor at this location, access the Debug menu and 
move the highlight to Toggle Breakpoint. Press ENTER. The back- 
ground of the entire line containing the LOOP statement changes 
color. 


сор = top + 1 


or —. 5.7 ee me s] 


END SUB 
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Expression 
fi l 


Value 
Eo 


B Add Watch < Cancel > < Help > 


Figure 10-7. Instant Watch dialog box 


You have set a breakpoint at the LOOP statement in the Bub- 
bleSort subprogram. 

Run Program 10-3 again. This time the program stops at the 
end of the DO. . .LOOP, with the background of the LOOP state- 
ment in its breakpoint color. One pass through the DO. ..LOOP 
has been executed. Since top was assigned the value of І before the 
loop was entered, it should now have the value of 2. Now is the 
time to use Instant Watch. 

Move the cursor to the first letter of the variable top. 


top = top + 2 
LOOP 


Hold down the SHIFT key and press the RIGHT ARROW key three times 
to highlight the word top. Then access the Debug menu, move the 
highlight to Instant Watch, and press ENTER. You are returned to 
the View window with the BubbleSort SUB displayed. However, a 
dialog box has popped up in the display, as shown in Figure 10-7. 
The dialog box shows that the value of top is 3. 

Instant Watch displays the current value of the variable or 
expression that was selected. Press ESC to remove the dialog box. 
Then press the LEFT ARROW key once to remove the highlight from 
the word top. 
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Now, remove the breakpoint with the following steps: 


1. Move the cursor to the beginning of the word LOOP. 
2. Access the Debug menu. 

3. Move the highlight to Toggle Breakpoint. 

4. Press ENTER. 


You are returned to the View window, and the breakpoint that you 
set at the LOOP statement has been toggled off. 
This time, set the breakpoint at the statement 


top = top + 2 
Use the same procedure as before: 


1. With the cursor on the letter / of top, go to the Debug menu. 
2. Select Toggle Breakpoint. 
3. Press ENTER. 


When the selected statement is highlighted, run the program 
again. This time it stops at the newly selected statement. 

Highlight the word top by holding down the SHIFT key and 
pressing the RIGHT ARROW key three times. Access the Debug menu, 
move the highlight to Instant Watch, and press ENTER. A dialog box 
similar to the one shown in Figure 10-7 appears. However, this 
time the value of top is 1 before the statement is executed. Press ESC 
to return to the View window. 

If you continue the program, it will start from this point and 
stop when it reaches this statement again. Then you can see how 
the value of /op has changed. To continue execution from this 
point, access the Run menu. Move the highlight to Continue, and 
press ENTER. The program continues and stops once more at the top 
assignment statement. Highlight the word top again. Then access 
Instant Watch from the Debug menu. Press ENTER, and a dialog box 
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appears again, showing that the value of top has changed from 1 to 
3. You can see that top was incremented by 2 rather than 1. A quick 
look at the assignment statement finds the error. 


Other Debugging Tools 


Other tools in the Debug menu that are useful in locating hard- 
to-find bugs are History On, Break on Errors, and Set Next State- 
ment. 


History On 


This tool is helpful in checking the flow of a program. It is partic- 
ularly useful in following the flow through conditional branch 
statements. 

When the History On command in the Debug menu is marked 
by a diamond, you may see the effect of the last 20 steps executed 
by using the History Back key combination, SHIFT+F8. Each time you 
press this combination, a step backward is made in the program. 

After stepping back through a sequence of statements, you may 
use the History Forward key combination, SHIFT«FI0, to step forward 
through the same sequence. The program steps forward one state- 
ment with each press of SHIFT-FIQ. 

Access the Debug menu, move the highlight to Toggle History 
On, and press ENTER. Access the Debug menu again. Put a break- 
point at the LOOP statement in the BubbleSort subprogram. 

Run Program 10-3 again. When the program stops at the LOOP 
statement, Press SHIFT+F8 20 times and watch the cursor step back- 
ward through the loop. You will hear a beep if you try to step back 
more than 20 statements. 
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Now, press SHIFT+F10 to step forward from this point, one step at 
a time for each press of the key combination. Notice that the flow 
of the program seems to be correct as you move through this part. 
Therefore, the error is not in the order-of-statement operation. 


р REMEMBER History On is toggled off by pressing ENTER when 
History On is highlighted and marked by a diamond. 


Break on Errors 


Break on Errors is an advanced debugging command that allows 
you to trace an error-causing statement in a program that uses 
error handling. It is not used in this book. Refer to your Microsoft 
manual, Learning to Use Microsoft QuickBASIC, if you plan to use it. 


Set Next Statement 


This is another advanced debugging tool. Set Next Statement is 

used when you want to skip over, or rerun, a section of the pro- 

gram. You halt the program's execution, move the cursor to a new 

statement, and use Set Next Statement. This changes the program 

execution sequence so that the next statement executed is the one 
. at the cursor. 

Use this command with great care. Skipping statements can 
lead to undefined variables and result in errors. The effect of Set 
Next Statement is similar to that of a GOTO statement. 

You can use various combinations of the features discussed in 
this chapter to check program operations and to locate bugs. With- 
out these tools, well-hidden bugs would be difficult to find. 


Review 


QuickBASIC has many built-in checks that find most obvious pro- 
gramming' errors. The debugging tools discussed in this chapter 
are used to find well-hidden bugs. 
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In this chapter, the debugging tools available from the Debug 
menu were discussed and demonstrated. You learned how to ac- 
cess and use Trace On with Single Step and with Procedure Step. 
You also learned to use Watch expressions and watchpoints. 

The use of Toggle Breakpoint and Instant Watch were dem- 
onstrated, along with History On and the key combinations used to 
move History Back and History Forward. 


1 Executable Files 


The basic aspects of QuickBASIC have been presented in previous 
chapters. This chapter takes a brief look at methods of creating 
QuickBASIC program files that can be run outside the Quick- 
BASIC environment. The programs in this chapter give you a brief 
introduction to computer graphics by demonstrating how to draw 
bar graphs and pie graphs. 

All QuickBASIC programs discussed in previous chapters 
should have been created and saved to run from your QuickBASIC 
work disk. Once you have a program that runs within Quick- 
BASIC, you can make a version that runs under MS-DOS directly 
from the MS-DOS command line. This version of a program is 
called an executable file. 

Executable files can be started simply and quickly from MS- 
DOS. Executable files are optimized for speed and efficiency. 
Therefore, they perform floating-point arithmetic more quickly 
and more efficiently than the same programs run in QuickBASIC. 
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Making Executable Files 


An executable file has an .EXE extension. For example, if you had 
a QuickBASIC program saved with the filename UQB1101.BAS, 
an executable file made from that program could be named 
UQBI1101.EXE. With a disk containing the executable file 
(UQB1101.EXE) in drive B, you would access MS-DOS from drive 
A from your MS-DOS disk or from your QB work disk (if it con- 
tained COMMAND.COM). Then you would enter the following 
command: 


A»B:UQB1101 


If you are starting with a fresh, new QB work disk, you should 
have only the following files on it: 


COMMAND.COM From MS-DOS 
QB.EXE From QuickBASIC 
QB45QCK.HLP From QuickBASIC 


Make sure the proper files are available before you begin to create 
an executable file. If you don't have a hard disk with all Quick- 
BASIC files on it and you are using 5 1/4-inch floppy disks, you 
must keep your files and other programs on several floppy disks. 

Two different systems are used to develop programs for this 
book. Neither system has a hard disk drive. One is a "bare-bones" 
system that is considered the minimum for using QuickBASIC. It 
has 384K of memory and two 5 1/4-inch floppy disk drives (360K 
capacity per disk). 

The second system is a little larger, somewhere between a min- 
imum system and a hard disk system. It has 640K of memory, one 
5 1/4-inch floppy disk drive (360K capacity), and one 3 1/2-inch 
drive (720K capacity). 

A system with a hard disk can hold all QuickBASIC files on the 
hard disk, ready to be used. A system with only 5 1/4-inch floppy 
disks will have to use several disks and swap disks when necessary. 
A system with a 720K, 3 1/2-inch disk can hold the QuickBASIC 
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files needed for many tasks; however, a second disk may be nec- 
essary for some tasks. The description that follows is for a system 
with one 3 1/2-inch disk drive (720K) and one 5 1/4-inch disk drive 
(360K). 

If QuickBASIC cannot find a file that it needs while making an 
executable file, it prompts you for a path name. When this hap- 
pens, insert the correct disk and respond to the prompt. Paths to 
find the correct file can be set from the Option menu, as you will 
see. 

Using your QuickBASIC work disk is fine if you are working 
only with programs within QuickBASIC. However, executable files 
require additional files. Learning to Use Microsoft QuickBASIC de- 
scribes the files needed for creating an executable file. 


Preparing Work Disks 


There are many ways for the additional files to be organized on a 
floppy disk system. The configurations shown in Table 11-1 were 
used to create .EXE files in this chapter. You will be using three 
work disks using the configurations in the right column of the 
table. 

Use your QB work disk as disk number 1, your main work disk. 
For a 3 1/2-inch disk, the additional files to copy from the Microsoft 
disks to your QB work disk are 


BC.EXE Creates linkable object files (OBJ) from 
your QuickBASIC program 
LINK.EXE Links the object files created by BC.EXE 


A typical directory of the QB work disk will list the following files: 


COMMAND COM 
QB EXE 
QB45QCK HLP 
BC EXE 
LINK EXE 
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System using 
two 5 1/4-Inch disks 
1. QB Work Disk 


COMMAND.COM 
QB.EXE 
QB45CK.HLP 


2. QB Compile Disk 


BC.EXE 
LINK.EXE 


3. QB Library Disk 


BRUN45.LIB 
BCOMA5.LIB 


4. Program Disk 


COMMAND.COM 
BRUN45.EXE 

.EXE files that 
require BRUN45.EXE 


System using 
3 1/2-Inch and 5 1/4-inch disks 


I. QB Work Disk (3 1/2-inch) 


COMMAND.COM 
QB.EXE 
QB45CK.HLP 
BC.EXE 
LINK.EXE 


2. QB Library Disk (5 1/4-inch) 
BRUN45.LIB 

BCOM45.LIB 

3. Program Disk (3 1/2-inch) 


COMMAND.COM 
BRUN45.EXE 


-EXE files that require BRUN45.EXE 


Table 11-1. Configurations for .EXE Files 


The second work disk, the QB Library Disk, should be made 
from a freshly formatted 5 1/4-inch disk. Copy the following two 
files from your Microsoft disks to the Library Disk: 


BRUN45.LIB 
BCOM45.LIB 


The BRUN45.LIB file is used when making .EXE files requiring 
BRUN45.EXE executable files. The BCOM45.LIB file is used 
when making stand-alone executable files. 
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The third work disk is your QB Program Disk. System-format 
a fresh 3 1/2-inch disk so that it contains the COMMAND.COM file 
from your DOS disk. The QB Program Disk will be used to hold the 
.EXE files that are produced from your BAS files. You will then be 
able to run the executable program directly from DOS using only 
this disk. 

Copy the BRUN45.EXE file from one of the Microsoft Quick- 
BASIC Utility disks to the 3 1/2-inch QB Program Disk. This file is 
necessary to run stand-alone .EXE files. 

For a two-drive system, you now have two disks to use for 
creating .EXE files and one disk to run the .EXE files created. One 
3 1/2-inch disk, the QB work disk, will be used in drive A to create 
an .EXE file. The 5 1/4-inch disk will be used in drive B to provide 
the necessary library files needed to make .EXE files. The second 
3 1/2-inch disk will be used later when you run the .EXE file that 
you create. 


Setting Flie Paths 


The Options menu in Full menus allows you to set the paths for 
QuickBASIC to search for various kinds of files. To avoid inter- 
ruptions, you should inform QuickBASIC where to find these files. 
You can preset the search paths from the Options menu. Figure 
11-1 shows the paths set for the demonstrations in this chapter. 
Since no subdirectories are being used in the demonstrations, each 
path shown in the figure includes only the disk drive on which the 
files reside. If you are using directories or subdirectories, include 
the appropriate directory and subdirectory names in the paths that 
you set. 


Mechanics of Creating 
an .EXE File 


When you create an executable file, QuickBASIC first uses 
BC.EXE (BASIC compiler) to compile your QuickBASIC program 
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Search Path For: 

Executable files: 
(.ЕХЕ, .СОП) 
Include files: 
GBI, BAS) 


Library files: 
GLIB, QLB) 


Help dl 


B ok g 


Figure 11-1. Set Paths dialog box 


into an intermediate file known as an object file. The LINK.EXE file 
then joins all of the separately compiled modules of your program 
into a single executable file. LINK.EXE also combines the com- 
piled object files created by BC.EXE with the supporting routines 
needed. The supporting routines are found in the run-time librar- 
ies BRUN45.LIB and BCOMA45.LIB. A simplified diagram of the 
operation is shown here: 


QuickBASIC 


QB program source file produced 


Object file produced 


LINK.EXE 


Executable file produced 


Supporting routines 


BRUN45.LIB or 
BCOM45.LIB 
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QuickBASIC can produce two types of executable files: 


B .EXE requiring BRUN45.EXE 
B Stand-alone .EXE 


You make the choice when the QuickBASIC program is loaded 
and you choose the Make EXE File command from the Run menu. 
The entire process of creating an executable file will be discussed 
shortly. For now, access the Run menu and select the Make EXE 
File command to study the dialog box shown in Figure 11-2. 

Since no QuickBASIC program is in memory at this time, the 
"EXE File Name:" box remains blank except for the cursor. If a 
program was in memory, its base name plus an .EXE extension 
would be displayed here. 

Press the TAB key once. The cursor moves between the square 
brackets to the left of "Produce Debug Code." 


{_] Produce Debug Code 


Type D. An X appears between the brackets, indicating that the 
Produce Debug Code option has been selected. 


[X] Produce Debug Code 


Make Exe File 


с 3 Produce Debug Code Produce: 
( ) EXE Requiring BRUNGS. EE 
( ) Stand-Alone EXE File 


Ё Make ЕЕ < Make EXE and Exit > «Cancel > < Help > 


Figure 11-2. Make EXE File dialog box 
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Type D again to remove the X. The D key acts as a toggle for this 
selection. 

If Produce Debug Code is selected, the code produced checks 
for the following at run time: 


ш Arithmetic overflow and underflow 
W Array subscripts and bounds 


B Line location, so that run-time error messages can indicate the 
line number where the error occurred 


B RETURN statements, checked for matching GOSUB statements 


B CTRL + BREAK, checked after executing each line to see if a 
CTRL+BREAK keypress has occurred; if it has, execution is stopped 


You must compile your program with Produce Debug Code 
turned on if you want it to respond to the CTRL* BREAK key combi- 
nation. Otherwise, CTRL+ BREAK will halt a program only when 
one of the following conditions is met: 


B You enter data in response to an INPUT statement's prompt 


B You write your program so that it checks for CTRL+ BREAK 


Press the TAB key again to move the cursor from Produce Debug 
Code to the area headed by “Produce:”. Two choices appear below 
this heading. A diamond is shown in the parentheses preceding the 
first choice, indicating that .EXE Requiring BRUN45.EXE is cur- 
rently selected. 


Produce: 
(Ф) EXE Requiring BRUN45.EXE 
( ) Stand-Alone EXE File 
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This choice requires a special file, BRUN45.EXE, when the .EXE 
file you make is run. 

Press the DOWN ARROW key to move the diamond to the second 
choice. 


Produce: 
( ) EXE Requiring BRUN45.EXE 
(Ф) Stand-Alone EXE File 


When this choice is made, your .EXE file will run without the 
special file (BRUN45.EXE). 


> REMEMBER Use the arrow keys to move the diamond between 
the two choices. 


Four command buttons are displayed at the bottom of the 
dialog box. Press the TAB key to move from the "Produce:" area to 
the leftmost command button, Make EXE, which is presently high- 
lighted. If this button is highlighted when you press the ENTER key, 
the file is compiled, the .EXE file is created, and you are returned 
to the QuickBASIC editor. 

Press the TAB key again to move to the next command button, 
Make EXE and Exit. If this button is highlighted when you press 
the ENTER key, the file is compiled, the .EXE file is created, and an 
exit from QuickBASIC is made. 

Press the TAB key again to move to the next command button, 
Cancel. If you press the ENTER key while the Cancel button is 
highlighted, the Make EXE File operation is canceled and you are 
returned to the editor. You can also return to the editor and cancel 
the operation by pressing the ESC key at any time while the dialog 
box is displayed. 

Press the TAB key one more time to move to the rightmost 
button, Help. If you press ENTER with this button highlighted, help 
in using the dialog box is displayed. 

Press the ESC key now to return to the QuickBASIC editor. 
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Making an .EXE File That 
Requires BRUN45.EXE 


An .EXE file requiring BRUN45.EXE is made when you choose the 
first option under "Produce:" from the Make EXE File dialog box. 


(9) EXE Requiring BRUN45.EXE 


The BRUN45.EXE file must be available at the time a file of this 
type is run. BRUN45.EXE contains code needed to implement the 
QuickBASIC language. Copy it to a fresh, system-formatted disk. 
The .EXE files you create with this option can be added so that they 
can be run from this disk. One copy of BRUN45.EXE will serve all 
.EXE files that are on the same disk. 

EXE files that use BRUN45.EXE have the following advantages: 


B The .EXE file produced is much smaller than if the Stand-Alone 
EXE option were used. More .EXE files and programs can be saved 
per disk. 


W Common variables and open files are preserved when CHAIN 
statements are used. This can be valuable in systems of programs 
that use shared data. Stand-alone programs do not preserve COM- 
MON variables when CHAIN statements are used. 


W The BRUN45.EXE run-time module resides in memory; it does 
not need to be reloaded for each program in a system of chained 
programs. 


The following steps are recommended in creating an .EXE file 
that uses BRUN45.EXE: 


1. Have the required QuickBASIC files available. 


2. Load a QuickBASIC program that has previously run success- 
fully and save it to the 5 1/4-inch Library Disk in drive B. 
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3. With your QB work disk in drive A and your Library Disk in 
drive B, select Make EXE File from the Run menu. 


4. If you want to change the base name of the .EXE file produced, 
type that name in the "EXE File Name" box; otherwise, leave the 
text box as it is, and press the TAB key to move to the "Produce 
Debug Code" area. 


5. If you wish to produce a debug code, type D. This marks the 
"Produce Debug Code" option, indicating that you want your 
.EXE file to include code that generates error-handling messages 
and reports error locations at run time. Remember also that you 
should select the Debug option if you want CTRL+ BREAK to be 
active when the program is run. This option results in a larger and 
somewhat slower executable file. 


6. Press the TAB key again to move to the first item in the “Produce:” 
area. 


7. Choose EXE Requiring BRUN45.EXE. 


8. Next, use the TAB key to move to the command button desired — 
Make EXE or Make EXE and Exit. The Make EXE command 
button creates the .EXE file and returns to QuickBASIC; the Make 
EXE and Exit command button creates the .EXE file and exits 
QuickBASIC. 


Press ENTER when you have made all the selections. 


The BAR GRAPH 
Program 


To make your first .EXE file, use Program 11-1, BAR GRAPH. The 
program is short so that you can concentrate on creating the .EXE 
file. Individual parts of the program can be easily modified or 
deleted and other functions can be added to customize it for your 
own purposes. 
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DECLARE SUB graph (Income%()) 

DECLARE SUB label (Month$()) 

REM ** BAR GRAPH жж 

' Using QuickBASIC, Chapter 11 

' Microsoft QuickBASIC 4.5 File: UQB1101.BAS 


DIM Month$(1 TO 12), Income%(1 TO 12) 
CLS : DEFINT A-Z 


' Read data to be graphed 
FOR number » 1 TO 12 

READ Month$(number), Income% (number) 
NEXT number 
DATA Jan,84, Feb,80, Mar,74, Apr,66 
DATA May,72, Jun,50, Jul,54, Aug,58 
DATA Sep,64, Oct,72, Nov,88, Dec,86 


' draw graph and label 
CALL graph(Income£()) 
CALL label(Month$()) 


COLOR 7 
END 


SUB graph (Income%()) 
' Draws blocks for graph 
FOR number = 1 TO 12 
COLOR number 
blocks = INT(IncomeZ(number) / 10) 
partblock! = Income%(number) / 10 - blocks 
LOCATE 16 - blocks, 4 * number + 12 
IF partblock! > .3 AND partblock! <= .7 THEN 
PRINT STRINGS(2, 220); 
ELSEIF partblock! > .7 THEN 
PRINT STRING$(2, 219); 
END IF 
FOR bar = blocks - 1 TO O STEP -1 
LOCATE 16 - bar, 4 * number + 12 
PRINT STRINGS(2, 219); 
NEXT bar 
NEXT number 
END SUB 


SUB label (Month$()) 
' Labels the graph 


Program 11-1. BAR GRAPH 
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COLOR 11 
FOR row = 1 TO 3 
FOR number = 1 TO 12 
LOCATE row + 17, 4 * number + 12 
PRINT MIDS(Month$(number), row, 1); 
NEXT number 
NEXT row 
LOCATE 4, 32 
PRINT “Sales per Month”; 
LOCATE 24, 1 
END SUB 


Program 11-1. BAR GRAPH (continued) 


The main program reads a fictitious company’s monthly sales 
for a one-year period. Then two subprograms are called: One 
prints bars representing the income for each month; the other 
labels each bar with a vertical three-letter abbreviation of the 
month’s name and prints a title for the graph. 

The graph is drawn in the text mode, using blocks formed by 
two adjacent characters formed by ASCII code (219). Partial blocks 
are added by a pair of characters formed by ASCII code (220). 
Graphs produced in the text mode do not provide much precision, 
but they can be used to show general trends. The graph subpro- 
gram uses connected blocks and partial blocks to form a bar for 
each month. 


blocks = INT(Income%(number) / 10) 
partblock! = Income%(number) / 10 - blocks 


The partial blocks and full blocks are connected to form the bars 
by the following section of the program: 


LOCATE 16 - blocks, 4 * number + 12 
IF partblock! > .3 AND partblockl <= .7 THEN 


PRINT STRINGS(2, 220); 'Print a partblock 
ELSEIF partblock! » .7 THEN 

PRINT STRINGS(2, 219); ‘Print a full block 
END IF 


FOR bar = blocks - 1 TO 0 STEP -1 

LOCATE 16 - bar, 4 * number + 12 

PRINT STRINGS(2, 219); ‘Print a full block 
NEXT bar 
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The bars are drawn from the top down and are two columns wide 
with two columns between bars. Table 11-2 shows examples of how 
the bars are calculated for two months. The blocks are connected. 


1 part block 


8 full blocks 


January 


number = 1 

income%(1) = 84 

blocks = INT (84/10) = 8 
partblocks = 84/10 — 8 = 0.4 


Draw a partblock since 0.4 is 
between 0.3 and 0.7. 


LOCATE partblock at 8,16 since 


16 – 8 = 8and4 x 1 + 12 = 16. 


Calculate location of full blocks: 


FOR bar = 7 TO 0 STEP -1 


16 — 7, 16 = 9, 16 
16 — 6, 16 = 10, 16 
16 — 5,16 = 11, 16 


16 — 4, 16 = 12, 16 
16 — 3, 16 = 13, 16 
16 ~ 2, 16 = 14, 16 
16 – 1,16 = 15, 16 
16 — 0, 16 = 16, 16 


Table 11-2. Blocks to Bars 


1 part block 


6 full blocks 


April 


number = 4 

income%(4) = 66 

blocks = INT(66/10) = 6 
partblocks = 66/10 — 6 = 0.6 


Draw a partblock since 0.6 is 
between 0.3 and 0.7. 


LOCATE partblock at 10,28 since 
16 — 6 = 10and4 x 4 + 12 = 28. 


Calculate location of full blocks: 
FOR bar = 5 ТО 0 STEP -1 


16 — 5, 28 = 11, 28 
16 — 4, 28 = 12, 28 
16 — 3, 28 = 13, 28 
16 — 2, 28 = 14, 28 
16 — 1, 28 = 15, 28 
16 — 0, 28 = 16, 28 
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Each bar is printed in a different color by a change in the fore- 
ground color each time a new month is referenced by number. 


FOR number = 1 TO 12 
COLOR number 


The label subprogram uses a similar locating scheme to print 
the three-letter abbreviation of each month below the appropriate 
bar. The title of the graph is then located and printed. 

Notice that the main program resets the foreground to its 
original color (white) before the program ends. If this were not 
done, any printing to the screen that you did after the program 
ended would be in the last color specified by the program. 

Figure 11-3 shows a run of Program 11-1. 


Making the .EXE File 


When you have entered and run Program 11-1 successfully, save it 
to the disk that contains the two library files, BRUN45.LIB and 
BCOM45.LIB. Then you will have all the .LIB files and .BAS files 
on the disk in drive B, as specified for this demonstration in the Set 
Paths dialog box of the Options menu. Load Program 11-1 from 
drive B. 

That will complete the first two steps described earlier in this 
section. You are now ready for steps 3 through 8, which can be 
summarized as follows: 


3. Select Make EXE File from the Run menu. 


4. Leave the .EXE filename as is. 
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EXE file name: UQB1101.EXE 


Press the TAB key to move to the "Produce Debug Code” area. 


5. This is your choice. Remember, a larger .EXE file will be pro- 
duced if you choose the Produce Debug Code option. Type D if you 
want to produce a debug code; an X will appear between the 
brackets. 


6. Press the TAB key to move to the "Produce:" area. 


7. Choose EXE Requiring BRUN45.EXE. 


Sales per Month 


J 


ess any key to continue 
Figure 11-3. Output of Program 11-1 
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8. Press the TAB key to move to the command buttons at the bottom 
of the dialog box. Here again, you make the choice. Make EXE will 
return you to the QuickBASIC editor when the .EXE file has been 
made; Make EXE and Exit will create the .EXE file and then exit 
QuickBASIC. 


In this demonstration, no debug code was selected in step 5, 
and Make EXE was chosen in step 8. The output that printed while 
the .EXE file was being made is shown in Figure 11-4. 

When compiling an .EXE file, QuickBASIC produces an object 
file (UOB1101.0BJ]) as well as an .EXE file (UOBIIOI.EXE). 
These two files are both saved to the disk in drive A, according to 
the selections made earlier in the Set Paths dialog box. When the 
compilation is finished, a directory of drive A shows the following 
files: 


COMMAND COM 

QB EXE 

QB45QCK HLP 

BC EXE 

UQB1101 OBJ  <«—— Object file 
LINK EXE 

UQB1101 EXE — «—— ————————— Executable file 
QB INI 


Running the .EXE File 
with BRUN45.EXE 


The details of running the .EXE file will depend on the configu- 
ration of the system you are using. Since the .EXE file in this 
demonstration was created with the Make EXE Requiring BRUN- 
45.EXE option, the BRUN45.EXE file must be available to Quick- 
BASIC. As described earlier, use a QB Program Disk that has been 
system-formatted and that contains the BRUN45.EXE file. 
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BC B:NUQB1101.BAS/T/C:512; 

Microsoft (R) QuickBASIC Compiler Version 4.50 
(C) Copyright Microsoft Corporation 1982-1988. 
All rights reserved. 

Simultaneously published in the U.S. and Canada. 


44045 Bytes Available 
41882 Bytes Free 


0 Warning Error(s) 
0 Severe Error(s) 
LINK /EX UQB1101,A:\UQB1101.EXE,NUL,B:BRUNG5.LIB; 


Microsoft (R) Overlay Linker Version 3.69 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


Figure 11-4. Output while making .EXE file from Program 11-1 


Copy the executable file that you just created (UQBI1101.EXE) to 
this 3 1/2-inch disk, which should now contain the following three 
files: 


COMMAND.COM 
BRUN45.EXE 
UQB1101.EXE 


Place this disk in drive A. 
At the DOS prompt, enter the name of the .EXE program. 


A>UQB1101 


Press ENTER, and the program runs directly from DOS. The output 
is the same as that shown in Figure 11-3 except for the Quick- 
BASIC prompt “Press any key to continue.” Since the .EXE pro- 
gram was run from DOS, the QuickBASIC prompt is replaced by 
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the DOS prompt A>. (If your .EXE program was run from a 
different disk drive, the drive designation in the DOS prompt will 
be different.) 

Look at the directory of the disk drive containing your .EXE 
program. It contains COMMAND.COM, BRUN45.EXE, and your 
.EXE file. For this demonstration, a typical directory shows 


COMMAND.COM Made when the disk was system-formatted, 
using approximately 23.6K of memory 

BRUN45.EXE The run-time module, using approximately 
77.4K of memory 

UQB1101.EXE The executable file, using approximately 
4.6K of memory 


Each time you add a new executable file to this disk, the avail- 
able disk space will decrease only by the length of the executable 
file. BRUN45.EXE is needed only once. All .EXE files requiring 
this run-time module that reside on the same disk can use the same 
run-time module. 


Making a Stand-Alone .EXE File 


Stand-alone programs are produced when you choose the Stand- 
Alone EXE File option from the Make EXE dialog box. Files cre- 
ated with this option include the support routines found in 
BRUN45.EXE; therefore, they require more disk space than those 
created with the .EXE Requiring BRUN45.EXE option. 

Stand-alone programs do not preserve variables listed in COM- 
MON statements when a CHAIN statement transfers control to 
another program. 

Files created with this option have the following advantages: 


ш You may save RAM space at run time if you have small, simple 
programs that do not require all the routines in the run-time 
module. 
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B Execution of the program does not require that a run-time 
module be on the disk at run time. This is important if you write 
programs that others will copy, since others may not have a run- 
time module or know that it is needed. 


Use the following steps to create a Stand-Alone .EXE file: 


1. Have the required QuickBASIC files available. 
2. Load a QuickBASIC program that has run successfully. 
3. Choose the Make EXE command from the Run menu. 


4. If you want a different base name (filename without an exten- 
sion), type it in the box; otherwise, leave the name as is. 


5. Press the TAB key to move to the “Debug” area, and type the 
letter D if you want to produce a debug code. 


6. Press the TAB key to move to the “Produce:” area. 
7. Choose the Stand-Alone EXE File from the two options listed. 


8. Choose either Make EXE or Make EXE and Exit. The Make 
EXE command button creates the EXE file and then returns you 
to QuickBASIC; the Make EXE and Exit command button creates 
the .EXE file and exits QuickBASIC. 


If you decide not to make the .EXE file while performing the 
above steps, press ESC to cancel the operation, or use the TAB key to 
move to the Cancel button and press ENTER. 


The CIRCLE GRAPH 
Program 


To demonstrate the creation of an executable file, use Program 
11-2, PIE GRAPH. Enter and run the program to see how it works. 

The program dimensions several arrays used by subprograms. 
The rest of the main program consists of a DO. . .LOOP enclosing 
a call to the Menu subprogram and a SELECT CASE block used to 
call other subprograms. 
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DECLARE SUB Drawing () 

DECLARE SUB Info () 

DECLARE SUB Menu (KeyChoice$) 

REM ** PIE GRAPH ** 

' Using QuickBASIC, Chapter 11 

' Microsoft QuickBASIC 4.5 File: UQB1102.BAS 


DIM percent!(0 TO 12), amount!(O TO 12), anglel(O TO 12) 
DIM col(O TO 12) AS INTEGER, row(O TO 12) AS INTEGER 
DEFINT A-Z 


DO 
CALL Menu(KeyChoice$) 
SELECT CASE KeyChoice$ 
CASE "1" 
CALL Info 
CASE ^P* 
CALL Drawing 
CASE 'L* 
PRINT “CALL Label subprogram* 
CASE 'Q" 
EXIT DO 
END SELECT 
LOOP 
COLOR 7, 0: CLS 


END 


SUB Drawing 
' Draws the circle graph 


SHARED sec AS INTEGER, col AS INTEGER, row AS INTEGER 
SHARED rad AS SINGLE, ecc AS SINGLE, col() AS INTEGER 
SHARED row() AS INTEGER 


SCREEN 1, 0: CLS 
CIRCLE (col, row), rad, 3, , , eccl 
FOR sector = 1 TO sec 
LINE (col, row)-(col(sector), row(sector)) 
NEXT sector 
kolor = 1 
FOR sector = 1 TO sec 
IF sector = sec THEN 
last = 1 
kolor = 3 
ELSE last = sector + 1 


Program 11-2. PIE GRAPH 
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END IF 
colpaint = (col(sector) + col(last) - 2 * col) / 4 
rowpaint = (row(sector) + row(last) - 2 * row) /| 4 
PAINT (col * colpaint, row * rowpaint), kolor, 3 
kolor = kolor + 1 
IF kolor = 3 THEN kolor = 1 

NEXT sector 

BEEP 

waitkey$ = INPUTS(1) 

SCREEN 0: WIDTH 80: COLOR 7, 0 

END SUB 


SUB Info 
' Allows you to enter circle data 


SHARED sec AS INTEGER, col AS INTEGER, row AS INTEGER, rad AS SINGLE 
SHARED ecc AS SINGLE, col() AS INTEGER, row() AS INTEGER 

REDIM amount(0 TO 12) AS SINGLE, percent(0 TO 12) AS SINGLE 

REDIM angle(O TO 12) AS SINGLE 


CLS 

INPUT “Number of sections"; sec 

INPUT “Center of circle (col,row)"'; col, row 

INPUT “Radius of circle’; radi 

INPUT "Ratio height/width^; ecc! 

CLS : pi! = 3.14159 

FOR sector = 1 TO sec 
PRINT “Amount for item "; sector; 
INPUT amount! (sector) 
amount!(0) = amount!(0) + amount! (sector) 

NEXT sector 

FOR sector = 1 TO sec 
anglel(sector) = percent!(0) * pil / 50 
percent! (sector) = amountl(sector) ж 100 / amount!(0) 
percent!(0) = percent!(0) + percent! (sector) 
col(sector) = col + rad! ж COS(anglel (sector) ) 
row(sector) = row - гай! * SIN(anglel(sector)) * eccl 

NEXT sector 

END SUB 


SUB Menu (KeyChoice$) 

' Draws the menu for your selections 
COLOR 4, 0: CLS 
COLOR 9: LOCATE 5, 33: PRINT "PIE GRAPH MENU* 
LOCATE 10, 30: PRINT *(*; : COLOR 4: PRINT "I*; 
COLOR 9: PRINT ")nput Information" 


Program 11-2. PIE GRAPH (continued) 
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LOCATE 12, 30: PRINT *(*; : COLOR 4: PRINT "P"; 
COLOR 9: PRINT ")reliminary Drawing’ 

LOCATE 14, 30: PRINT "("; : COLOR 4: PRINT 'L"; 
COLOR 9: PRINT *)abel Drawing” 

LOCATE 16, 30: PRINT *("; : COLOR 4: PRINT “Q”; 
COLOR 9: PRINT ")uit^ 


COLOR 27, 1 
— LOCATE 22, 24: PRINT CHR$(219); 

COLOR 10: PRINT ^ PRESS A LETTER (I, P, L, ог Q) '; 

COLOR 27: PRINT CHR$(219); 

COLOR 7, 0 

DO 

BEEP: KeyChoice$ = UCASES(INPUT$(1)) 

LOOP WHILE INSTR("IPLQ^, KeyChoice$) = 0 

END SUB 


Program 11-2. PIE GRAPH (continued) 


When the program is run, the menu appears as shown in Figure 
11-5. The first letter of each item on the menu is enclosed in 
parentheses and highlighted in a different color than the rest of the 
item so that the key to be pressed stands out from the rest of the 
name. 

First, enter the information necessary to draw a circle graph 
(choice "I" on the menu). When this has been done, a return is 
made to the menu. Next draw the graph (choice "P" on the menu). 
When the graph is drawn, the program pauses to let you study the 
results. Press any key to return to the menu. 

The next step is to call the Label subprogram (choice "L"), 
where the graph can be labeled as you wish. This subroutine has 
been left for you to customize for the graph that you wish to 
produce. The choice in Program 11-2 merely prints its name. The 
last item on the menu (Quit, choice "Q") allows you to exit the 
program. 

If you don't like the first graph attempt, you can change the 
data by entering the Info subprogram again from the menu and 
entering all the information again. (An alternative is to write an- 
other subprogram that would allow you to choose which items you 
wanted to change.) 
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(Dnput. Information 


(P)relininary Draving 
(L)abel Draving 
(Quit 


Figure 11-5. Menu for pie graph 


The Info subprogram prompts you to enter the number of 
sections into which the circle is to be divided, where the circle's 
center is, the length of the radius, and the eccentricity (ratio of 
height to width) to be used in drawing the circle. The default value 
for eccentricity is 1, but on most monitors an ellipse that is taller 
than it is wide will be displayed with this value. Usually, a number 
slightly smaller than 1 is required for a true circle. A value of 0.85 
has been entered, as Figure 11-6 shows. 

The subprogram also requests the information to be used to 
calculate the size of each sector of the circle. It totals the items 
entered and finds the percentage of the total for each item. Trig- 
onometry is applied to locate points on the circle that are used in 
the Drawing subprogram to divide the circle into sectors. Figure 
11-7 shows the amounts entered for a five-sector circle graph. 

Arunning total of the amounts entered (amount!(0)) is calculated 
in the FOR. . .NEXT loop. 
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Number of sections? 5 

Center of circle (col,row)? 160,100 
Radius of circle? 70 

Ratio height/width? .85_ 


Figure 11-6. Information entered for circle 


FOR sector = 1 TO sec 

PRINT “Amount for item "; sector; 

INPUT amount! (sector) 

amount!(0) = amount!(0) + amount! (sector) 
NEXT sector 


As each pass through the FOR. . .NEXT loop is completed, the 
amounts and the running totals are 


Sector% Amount!(sector%) ^ Amount!(0) 
1 82 82 

2 45 127 

3 28 155 

4 38 193 

5 62 255 


A second FOR. . .NEXT loop calculates the percentage of the 
total for each sector, the angle of rotation for each sector, and the 
coordinates of the endpoints for each sector arc. 
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Amount for item 1 ? 82 
Amount for item 2 ? 45 
Amount for item 3 ? 28 
Amount for item 4 ? 38 
Amount for item 5 ? 62 


Figure 11-7. Amounts entered for five sectors 


FOR sector = 1 TO sec 
angle! (sector) = percent!(0) ж pil / 50 
percent! (sector) = amount! (sector) * 100 / amount! (0) 
percent!(0) = percent!(0) + percent! (sector) 
col(sector) = col + rad! ж COS(angle! (sector) ) 
row(sector) = row - rad! * SIN(anglel(sector)) * eccl 
NEXT sector 


Consider first the calculations for the percentage of each section 
and the running total of percentages. 


percentl(sector) = amountl(sector) * 100 / amount! (0) 
percentl(0) = percent!(0) + percent! (sector) 


The value of amount!(0), the total of all amounts in the example, is 
255. The percentages for cach section and a running total of the 
percentages are 
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Sector Amount! Total Percent! Total 

(sector) Before (sector) After 
1 82 0 32.16 32.16 
2 45 32.16 17.64 49.80 
3 28 49.80 10.98 60.78 
4 38 60.78 14.90 75.69 
5 62 75.69 24.31 100 


There are 2 * fi radians in a complete circle. Therefore, the 
angle in radians for any given percentage is 


percent * 2 * pi / 100, or percent * pi / 50 
The angle for the beginning of a given sector is 
angle!(sector) = ретсепі!(0) * pi! / 50 
where percent/(0) is the running total before the percentage for the 


current sector has been added. 
The results calculated using the given percentages are 


Sector Percent!(0) * pi! / 50 Angle in radians 
1 0 * 3.14159/50 0 

2 32.16 * 3.14159 / 50 2.02 

3 49.80 * 3.14159 / 50 3.13 

4 60.78 * 3.14159 / 50 3.82 

5 75.69 * 3.14159 / 50 4.76 


The angles are used to calculate the endpoints of the sectors, which 
lie on the circle. 


2.02 radians 3.13 radians 3.82 radians 4.76 radians 


ooo: 
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The calculations can be made more efficiently by dividing 
3.14159 by 50 before the loop is entered. Then the result can be 
used to multiply each percent!(0) inside the loop. This would sub- 
stitute one division for the five divisions used inside the present 
loop. 

After the angles are found, they are used to calculate the coor- 
dinates of the endpoints on the circle for each sector. 


col(sector) = col + rad! яж COS(angle! (sector) ) 
row(sector) = row - rad! * SIN(anglel(sector)) * eccl 


For any given point (column,row) on a circle, the mathematical 
relationship between the coordinates and the angle is 


column = radius * COS(angle) 
row = radius * SIN(angle) 


This relationship is demonstrated as follows: 


column, row 


radius * SIN(angle) 


center 


Ss 


radius * COS(angle) 


Since the row coordinates on the screen are measured from the 
top of the screen down, the sign of the row coordinate must be 
negative to correspond to the mathematical relationship. 


row = - radius * SIN(angle) 


The eccentricity is also used in the row-coordinate calculation. 
The ecc! variable is the ratio (height to width) that enables you to 
produce a true circle (one that looks round on the screen). You 
entered this value earlier in the Info subprogram. Using the equa- 
tions given above, the coordinates in the example are 


Executable Files 371 


Sector Angle COS SIN Coordinates 
1 0 1.0 0 280, 100 

2 2.02 — 0.435 401 180, 46 

3 3.13 —1.0 ‚0123 90, 99 

4 3.82 —0.779 — 0.627 105, 137 

5 4.76 .0431 —0.999 163, 159 


Using these coordinates and the center of the circle identified 
earlier, the points are located on the circle as follows : 


130,46 


160,100 
90,99 ° 30,100 


105,137 


163,159 


The Drawing subprogram uses a new statement: SHARED. 
This statement allows the subprogram to share variables with the 
main program and other procedures in the module without the 
need for passing them as parameters. The SHARED statements 
used in the Drawing subprogram are 


SHARED sec AS INTEGER, col AS INTEGER, row AS INTEGER 
SHARED rad AS SINGLE, ecc AS SINGLE, col() AS INTEGER 
SHARED row() AS INTEGER 


The circle is drawn by 
CIRCLE (col, row), габ, 3, , , eccl 


ERES 


Center Radius Color Eccentricity 
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Lines are drawn to separate sectors of the circle by 


LINE (col, row) - (col(sector), row(sector)) 


ee c NUM ыў 


/ ML 


From center to Perimeter 
of circle of circle 


The values for the point on the perimeter (col(sector), row(sector)) 
are those calculated in the Info subprogram. They are shared 
between subprograms because of the SHARED statement. The 
lines drawn result in the following circle sectors: 


When the circle has been divided into sectors, the PAINT state- 
ment is used to color the interior of each sector. 


PAINT (col + colpaint, row * rowpaint), kolor, 3 


Paint outward Foreground Paint until this 
from this point color color is reached 
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Careful consideration must be given to the coordinates of the 
point at which painting begins. This point must lie inside the 
correct sector, because painting is done from this point outward in 
all directions until the boundary color is reached. The following 
steps locate a point that lies inside the sector being painted: 


1. Imagine a line radiating from the center of a circle that divides 
a sector into two equal parts. 


2. Now consider a point on the line of step 1 halfway between the 
endpoints of the sector's arc. 


col(A) = (col(sector) + col(last)) / 2 


row(A) = (row(sector) + row(last)) / 2 


For example, 
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3. The point in step 2 looks satisfactory but is quite close to the 
circle. It would be better to pick a point on the line that is closer to 
the center (but not too close). Pick a point halfway between the 
point in step 2 and the center of the circle. 


col(A), row (A) 
midpoint 


rowpaint a col,row 


colpaint 


Using some algebraic manipulations, the distance from the center 
of the circle and the paint point can be calculated in QuickBASIC 
by 

colpaint = (col(sector) + col(last) - 2 * col) / 4 

rowpaint = (row(sector) + row(last) - 2 * row) / 4 


Using the example, the paint-point values to be added to the 
coordinates of the center of the circle are 


Sector Col(sector) Col(last) Colpaint 
1 230 130 10 

2 130 90 -25 

3 90 105 — 31.25 
4 105 163 -13 

5 163 230 18.25 
Sector Row(sector) Row(last) Rowpaint 
1 100 46 — 13.5 

2 46 99 — 13.75 
3 99 137 9 

4 137 159 24 

5 159 100 14.75 


When colpaint and rowpaint are added to the coordinates of the 
center of the circle (160,100), the results are the coordinates to use 
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for painting the sector. 


Sector Col(sector) Row(sector) 
1 170 86.5 

2 90 72.5 

3 77.5 118 

4 114 148 

5 176.5 129.5 


Here is how the paint points are placed: 


'This method of locating the points from which to paint is an 
oversimplification that will not work for any sector that is greater 
than 50 percent ofthe circle. For example, consider a circle divided 
into three parts — 6096, 25%, and 15%. As calculated by Program 
11-2, the paint point of the 60% sector lies outside the sector. 


v 


Paint point 
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The values of the variables colpaint and rowpaint in this case 
should be subtracted from the coordinates of the center of the 
circle. 


PAINT (col - colpaint, row - rowpaint), kolor, 3 


This gives the correct paint point. 


Correct point 


Incorrect point 


You could use an IF. . (THEN. . .ELSE block to allow for sectors 
that are larger than 50% of the circle. The values of colpaint and 
rowpaint could be assigned negative quantities in such cases. 

One other possibility arises: What if a sector is exactly 50% of the 
circle? This is left as a programming problem for you to solve. 

The kolor variable changes for each sector. Only four fore- 
ground colors are available in the graphics mode being used 
(screen 1). Therefore, the same color will be repeated|if there are 
more than four sectors. When the circle is complete, a beep sounds 
and the program pauses for you to study the graph. Note any 
changes you want to make. Then press any key to return to the 
menu. A circle graph drawn with the data given in Figure 11-7 is 
given in Figure 11-8. 

You can write your own subprogram for the Label subprogram 
so that your circle graph is labeled the way you want it to be. Text 
can be added to a graphics screen. In screen mode 1 (used in 
Program 11-2), text is printed in the same size as on a width-40 
text-mode screen. Use LOCATE statements to place your labels 
where you want them. 
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Figure 11-8. Pie graph 


When Program 11-2 runs correctly, save the file under the 
name UQB1102.BAS. 


Making the 
Stand-Alone Flle 


A stand-alone .EXE file is made in the same way as an .EXE file that 
requires BRUN45.EXE, with one exception: the choice made in 
the “Produce:” area. 

Access the Run menu and choose the Make EXE command. The 
name of the .EXE file to be created appears in the "EXE File 
Name" box. 


EXE file name: UQB1102.EXE 


If you want a different base name, type it in the box; otherwise, 
leave the name as is. 
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Press the TAB key to move to the Produce Debug Code option. 
If you want the debug options described earlier, choose the Pro- 
duce Debug Code option by typing D. 

Next, use the TAB key to move to the “Produce:” area, and 
choose Stand-Alone EXE File by pressing the DOWN ARROW key. 

Select the Make EXE or the Make EXE and Exit command 
button. The choice is yours: If you have more things to do in 
QuickBASIC after making the .EXE file, choose Make EXE; if you 
want to go to MS-DOS after making the .EXE file, choose Make 
EXE and Exit. In either case, press ENTER to make the .EXE file. The 
display produced while the file is made is shown in Figure 11-9. 


Running the 
Stand-Alone File 


Your stand-alone .EXE file will run from MS-DOS in the same way 
as a file made from .EXE Requiring BRUN45.EXE. However, you 


BC B:NUQB1102.BAS/0/T/C:512; 

Microsoft (R) QuickBASIC Compiler Version 4.50 
(C) Copyright Microsoft Corporation 1982-1988. 
All rights reserved. 

Simultaneously published in the U.S. and Canada. 


44045 Bytes Available 
39704 Bytes Free 


0 Warning Error(s) 
0 Severe Error(s) 
LINK /EX UQB1102,A:NUQB1102. EXE, NUL, B: BCOM45. LIB; 


Microsoft (R) Overlay Linker Version 3.69 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


A» 


Figure 11-9. Output while making .EXE file from Program 11-2 
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do not need to have the BRUN45.EXE file available to run this 
type of .EXE file. The result produced will be the same as that of 
UQB1102.BAS run from QuickBASIC, except for the prompt 
when the run is completed. 

Files created using a stand-alone .EXE file include support 
routines found in BRUN45.EXE; therefore, this type of file re- 
quires more disk space than those created with .EXE Requiring 
BRUN45.EXE. If you examine the directory of your disk, you can 
see that the .EXE file of Program 11-2 (UQB1102.EXE) is much 
larger than UQB1101.EXE. Here is a comparison of the files pro- 
duced by the two methods: 


Stand-Alone .EXE .EXE Requiring BRUN45.EXE 


UQB1102.EXE 45.9K UQB1101.EXE 4.6K 
BRUN45.EXE 77.4K 


Each time another QuickBASIC program creates a new stand- 
alone .EXE file, the .EXE file produced will be quite large; that is, 
there will be one large .EXE file for each QuickBASIC program. 

In contrast, the large BRUN45.EXE file used with .EXE Re- 
quiring BRUN45.EXE serves all such .EXE files on the same disk. 
Only one copy is needed on each disk containing this type of .EXE 
file. 

As mentioned before, other disk configurations can be used. 
The BRUN45.EXE file can be saved on one of your work disks 
instead of on the Program Disk, as long as it is available when the 
.EXE file is run. 


Review 


This chapter discussed two methods of creating executable files 
that run directly from the MS-DOS command line. Executable files 
(. EXE) need the support of more QuickBASIC files than do Quick- 
BASIC programs (.BAS) that run within the QuickBASIC environ- 
ment. Therefore, additional work disks must be made to create 
.EXE files. The location of the support files on the work disks will 
depend on the disk configuration of your computer system. 
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The two types of files — stand-alone and .EXE files that require 
BRUNA45.EXE —are discussed, and both types of .EXE files are 
produced. A bar graph was used to demonstrate the creation of one 
kind of EXE file; a circle graph was used to demonstrate the 
creation of the other kind of .EXE file. 


1 2 Quick Libraries 


This final chapter discusses one of QuickBASIC's most powerful 
features. It can be used to build a programming toolkit of all the 
utility programs that you have created in the past or will create in 
the future. 

QuickBASIC provides tools for creating two different types of 
libraries. One type of library is identified by the file extension .LIB. 
You create these stand-alone libraries with the Microsoft Library 
Manager, which has the filename LIB.EXE. 

The second type of library is identified by the file extension 
-QLB. These special libraries, called Quick libraries, permit you to 
add frequently used procedures to any of your QuickBASIC pro- 
grams. A Quick library can contain procedures written in Quick- 
BASIC or in other Microsoft languages, such as Microsoft C. When 
QuickBASIC makes a Quick library, it simultaneously creates a 
stand-alone library containing the same procedures in a somewhat 
different form. You get two libraries for the price of one. 
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You can create both types of libraries from within the program- 
ming environment or from the DOS command line. Only Quick 
libraries are discussed in this chapter. 


Advantages of Quick Libraries 


Think of a Quick library as a set of one or more procedures. This 
set is "linked" to QuickBASIC when the library is loaded with 
QuickBASIC. 

As you develop a long program, you can add to a Quick library 
modules that you have completed and run successfully. You can set 
aside the source files of the completed modules until you want to 
improve them or bring them up to date. Thereafter, you can load 
the Quick library along with QuickBASIC, and any program you 
create or load will have instant access to all procedures in the 
library. 

Quick library procedures behave like QuickBASIC statements; 
for instance, they can be called from your QuickBASIC program or 
executed from the Immediate window. Therefore, you can test the 
effects of a Quick library procedure before you use it in other 
programs. 

You can incorporate routines written in other languages into 
QuickBASIC libraries. All the incorporated routines behave like 
extensions of the QuickBASIC language when you load the Quick 
library that contains them at the same time you load QuickBASIC. 

If you develop programs with other programmers, Quick li- 
braries make it easy to combine or update a pool of common 
procedures. You could offer a library of original procedures for 
commercial distribution, and all QuickBASIC programmers would 
be able to use them immediately to enhance their own work. You 
could leave your Quick library on a bulletin board for others to try 
before they purchase the library. Because Quick libraries contain 
no source code and can be used only within the QuickBASIC 
programming environment, they protect your proprietary inter- 
ests while enhancing your marketing opportunities. 
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Before Creating A Quick 
Library 


A Quick library automatically contains all modules present in the 
QuickBASIC environment when you create the new library. It will 
also contain any other Quick library that you loaded when you 
started QuickBASIC. 

If you load a program and want only certain modules to be put 
in the library, you must explicitly unload those you don't want. 
This can be done with the Unload File command from the File 
menu. 

To see which modules are loaded, you can look at the list from 
the SUBs command of the View menu. However, this list does not 
show you which procedures a loaded library contains. You can list 
the procedures in a library with the OLBDUMP.BAS utility pro- 
gram. 

A Quick library must be self-contained; that is, all procedures 
invoked by a procedure in a Quick library must be in that library. 


Creating a Quick Library 


There are two main things to consider when you create a Quick 
library: The first is the files needed to make the Quick library, and 
the second is the method to be used to create the library. 


Files Needed for a 
Quick Library 


Make sure you have the necessary files available before you create 
a Quick library. If you do not have a hard disk, you may need more 
than one floppy disk. 

QuickBASIC prompts you for a path name when it cannot find 
a file. When this happens, insert the correct disk and respond to 
the prompt. 
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Table 12-1 lists and briefly describes the files that should be 
accessible to QuickBASIC. All these files, which are included on the 
disks in your QuickBASIC package, easily fit on one 3 1/2-inch 
disk. Therefore, if you are using 5 1/4-inch disk drives, you should 
make one or more work disks containing the files in the table. 


A Quick Library Made from 
within QuickBASIC 


When you create a Quick library, you may be creating an entirely 
new library, or you may be updating an existing library. If you are 
updating a library, you should start QuickBASIC with the /L com- 
mand line option and supply the name ofthe library to be updated 
as a command line argument. This process is discussed later in the 
chapter. 

The following discussion outlines the steps necessary to create 
a new Quick library. You will use these steps later to create and 
update a Quick library. 


1. Access the Run menu, and choose the Make Library command, 


Filename Use 

QB.EXE Directs the creation of a Quick library 

BC.EXE Creates the object files from the 
source code 

LINK.EXE Links object files 

LIB.EXE Manages stand-alone libraries of ob- 
ject modules 

BQLB45.LIB Supplies routines needed by your 


Quick library 


Table 12-1. Files for a Quick Library 
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Start Shif t4F5 


Restart 
Continue F5 
Modify COMMANDS. .. 


Маке EXE File... 


Set Main Module... 


Figure 12-1 Make Library selected 


as shown in Figure 12-1. When you press ENTER, you will see the 
dialog box shown in Figure 12-2. 


2. Enter the name of the library you wish to create in the “Quick- 
Library File Name” box. If you enter only a base filename, Quick- 
BASIC will automatically append ".QLB" when it creates the 
library. You may enter any base name and any extension as long as 
they are consistent with DOS file-naming rules. If you do not want 
an extension, end the base name with a period. Here are some 
examples. 


l'ake Library 


{ 3 Produce Debug Code 
< Маке Library > < Make Library and Exit > 


< Cancel > < Help > 


Figure 12-2. Request for Quick library filename 
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8. Filename with no extension. Type the filename makefile in the 
"Quick-Library File Name" box, with no period and no extension. 
Do not press ENTER yet. You still have to make other Make Library 
choices. 


Quick-Library File Name: MAKEFILE 
QuickBASIC will name the file MAKEFILE.QLB. 


b. Filename with extension. Type the filename followed by a period 
and a three-letter extension. Do not press ENTER yet. There are 
other Make Library choices to be made. 


Quick-Library File Name: MAKEFILE. QLB 


QuickBASIC will name the file MAKEFILE.QLB. You can use any 
valid three-letter extension consistent with DOS file extensions. If 
you use an extension different from ".OLB," you must remember 
the extension and use it each time you load the Quick library. 


C. Filename with terminating period but no extension. Type the filename 
followed by a period. Do not press ENTER yet. You still have to make 
other Make Library choices. 


Quick-Library File Name: MAKEFILE. 


The file is created with no extension. If your Quick library filename 
has no extension, you must specify the name in the same way 
(MAKEFILE.) whenever you load it. If you do not append the 
period, QuickBASIC will search in vain for a file with the base 
name (MAKEFILE) and the .QLB extension. 


3. Press the TAB key. The cursor moves to the Produce Debug Code 
check box. Do not select this option now. If you did, your library 
would be larger and your program would execute more slowly 
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than if you did not select it. This option gives only a small amount 
of error control, mostly dealing with checking array bounds. 


4. You now have one final selection to make. Your Quick library is 
created when you activate one of the two Make Library buttons that 
are displayed at the bottom of the screen in Figure 12-2. The third 
button cancels the operation. 


a. Make library. This choice allows you to remain in the Quick- 
BASIC environment after the Quick library is created. If this is 
your choice, press the ENTER key while this button is highlighted. 


b. Make library and exit. If you want to create your library and exit 
to DOS, press the TAB key to highlight the Make Library and Exit 
command button. Then press the ENTER key. You will be returned 
to DOS after the Quick library is created. 


C. Cancel. If you change your mind and want to cancel the opera- 
tion, press the TAB key until the Cancel button is highlighted. Then 
press the ENTER key. 


Demonstrating a Quick 
Library Creation 


You may have any number of small program fragments, or mod- 
ules, that are used in many programs. Rather than enter each of 
them from the keyboard every time you write a new program, you 
can enter the fragments once and place them in a common Quick 
library. Then you can quickly load the library from the command 
line when you want to include the modules in a new program. 

This section uses the steps listed in the previous section to show 
how to create a Quick library of short utilities. The demonstration 
begins by loading QuickBASIC and entering Program 12-1, Print 
Date and Time Subprogram. 
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DECLARE SUB DigiKlok () 


REM ** Print Date and Time Subprogram ** 


' Using QuickBASIC, Chapter 12 
' Microsoft QuickBASIC 4.5 File: UQB1201.BAS 
' To be put in Quick Library; activate by: CALL DigiKlok 


' Use View Menu to see subprogram DigiKlok 


SUB DígiKlok 


' Prints date and time to I/O device #1 


PRINT 41, 
PRINT «1, 
END SUB 


Program 12-1. 


Notice that this program uses a PRINT #1 statement to send 
the date and time to whatever I/O device you have previously 
specified in an OPEN statement. Available I/O devices are listed in 
Table 12-2. 

The two most common output devices are a display screen and 


“Date ^; DATES 
"Time "; TIMES 


Print Date and Time Subprogram 


a printer. The OPEN statements for these devices are 


OPEN *"SCRN:* FOR OUTPUT AS #1 


OPEN "LPT1:" FOR OUTPUT AS #1 


Name 


COMI: 
COM?2: 
CONS: 
KYBD: 
ІРТІ: 
LPT?: 
LPT3: 
SCRN: 


Table 12-2. 


Device 


Serial port #1 
Serial port #2 
Screen 
Keyboard 
Printer £1 
Printer #2 
Printer #3 
Screen 


Devices Supported for I/O 


'output to screen 


'output to printer 


О Mode Supported 


Input and Output 
Input and Output 
Output only 
Input only 
Output only 
Output only 
Output only 
Output only 
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This discussion assumes you are using a two-drive system with 
QuickBASIC in drive A and the data file disk in drive B. If you are 
using a hard disk system, substitute the appropriate drive desig- 
nations for your system. Your screen displays will be different, and 
the data in the table of directories will appear as the directories 
used by your system. 

Program 12-1 is very short and is not an executable program by 
itself. However, when you include it in a library, it can be called by 
any program that uses that library. After you enter the program, 
save it to disk as UQB1201.BAS. 

You may find it ridiculous to create a library for one small 
program. If that were the whole library, it would be ridiculous. 
However, you will add other utilities to the library later in this 
chapter. This program just demonstrates how to begin with a short 
library and expand it later. 


1. Access the Run menu and choose the Make Library command. 


2. Type the name of the library to be created, but do not press ENTER 
yet. 


Quick-Library File Name:  B:UTILI.QLB 


3. Press the TAB key twice to move the highlight past the Produce 
Debug Code command. You do not want to select this option. 


4. The highlight is on the Make Library command button. Do not 
select this option. Press the TAB key to move the cursor to the Make 
Library and Exit command button. Then press the ENTER key. 


QuickBASIC begins to make the library. The program displays 
a sequence of messages on the screen while it is creating the library. 
It also displays any errors that it finds. In the example shown in 
Figure 12-8, no errors were encountered. The Quick library 
UTIL1.QLB was created and QuickBASIC then returned control 
to DOS, as requested. 

Now that the computer is back in DOS, check the directories of 
drives A and B (assuming that the QuickBASIC .EXE and .LIB files 
are in drive A and your source files are in drive B). Typical direc- 
tories are shown in Table 12-3. 
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BC B:NUQB1201.BAS/T/C:512; 

Microsoft (R) QuickBASIC Compiler Version 4.50 
(C) Copyright Microsoft Corp. 1982-1988. 

All rights reserved. 

Simultaneously published in the U.S. and Canada. 


44061 Bytes Available 
43725 Bytes Free 


O Warning Error(s) 
0 Severe Error(s) 
LINK /QU UQB1201,B: NUTIL1.QLB, NUL, A: NBQLB45.LIB; 


Microsoft (R) Overlay Linker Version 3.69 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


LIB B:NUTILI.LIB*«UQB1201; 


Microsoft (R) Library Manager Version 3.14 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


A» 


Figure 12-3. Final Make Library screen 


Notice that UTIL1.QLB and UTILI.LIB have been stored on 
the disk in drive B. You specified this path when you named the 
Quick library (B:UTIL1). Notice, in addition, that the object file 
(UQB1201.OB]) was saved on the disk in drive A. 

When QuickBASIC makes a Quick library, it directs the work of 
the files BC. EXE, LINK.EXE, and LIB.EXE. It then combines 
what they produce into two libraries: a Quick library (.QLB), and 
a stand-alone library (. LIB). When the process is completed, an 
object file (.DBJ) exists for each module in your program. 

The messages shown in Figure 12-3 outline the steps for cre- 
ating the library: 


1. The top three lines of Figure 12-3 show you that the QB.EXE file 
invokes the QuickBASIC BC compiler to process the QuickBASIC 
file UQB1201.BAS. 

The compiler creates an object file (.OBJ). The object file is first 
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Directory of BÀ 

UQB1201 BAS 372 
UTILI OLB 5591 
UTILI LIB. 1551 
Directory of AA 

QB EXE 278804 
BC EXE 97481 
BOLB45 LIB 24789 
LINK EXE 69133 
LIB EXE 35643 
QB INI 48 
UQBI1201 OBJ 886 


Table 12-3. Directories After Making UTILI 


used to make the Quick library file (UTILI.OLB). When BC.EXE 
has completed its task, it lists the number of bytes available and the 
number of bytes free. The final message for this part of the process 
reports no warning errors and no severe errors. 


2. Near the middle of the message list, you will see the word LINK. 
This indicates that the LINK.EXE file is working. The linked files 
UQB1201, UTIL1.QLB, NUL, апа BOLB45.LIB are shown on 
the same line. 

The NUL entry in the list indicates that no map file was created. 
If you wanted to output a map file, you would name a device at this 
place in the list. (See "Creating a Map File" in your Microsoft 
Programming in BASIC manual.) 

The last file in the list, BOLB45.LIB, supplies routines needed 
by your Quick library. When all these files have been linked to- 
gether properly, the Library Manager takes over. 


3. One of the lower lines on the screen starts with the word LIB. 
This indicates that the LIB.EXE file has taken control. It creates a 
stand-alone library (UTILI1.LIB) from the object module. 
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The demonstration program had a single module. Therefore, 
LIB.EXE creates one object file (UQB1201.OBJ). The libraries 
produced were UTIL1.QLB (the Quick library) and UTILI.LIB 
(the stand-alone library). 


Files with the .OBJ extension are no longer needed; you may 
delete them. For now, leave the object file UQB1201.OBJ so that 
you can see other object files as you add modules to the library. 
Files with the .LIB extension are very important; you should pre- 
serve them. These parallel libraries are used to create executable 
files of your programs. 

If you are developing professional software for other Quick- 
BASIC programmers, you should deliver both the Quick library 
and the stand-alone library to customers. Without the .LIB librar- 
ies, your customers would not be able to use your library routines 
in executable files produced by QuickBASIC. 


Using Quick Library UTIL1 


To make sure the UTILI Quick library works, load QuickBASIC 
and the library from the command line with 


A>QB /L B:UTILI 


where "/L" tells the computer to load a library, "B:" is the path 
where the library is found, and "UTILI" is the library name. 

A nearly blank, untitled Edit screen appears. If you use the View 
menu to check for SUBs, you will find nothing. Although the 
library is loaded, you will not see any list of procedures in the 
library. 

You could write a short program to test the UTILI library. 
However, it is much easier to use QuickBASIC's Immediate win- 
dow to enter a CALL command to the subprogram DigiKlok in 
UTILI. 

Press the F6 key to move the cursor to the Immediate window. 
Open the necessary I/O device. If you want to use the screen as 
output, perform the following steps: 
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1. Type cls and press ENTER. 


2. When the "Press any key to continue" message appears, press 
ENTER again to get back to the Immediate window. 


3. Type open "scrn:" for output as #1 and press ENTER. 
4. Type call digiklok and press ENTER. 


The date and time are obtained from DigiKlok and sent to the 
screen. 

If you want to send the date and time to your printer, be sure 
your printer is on line. Then, if you opened device #1 as the 
screen, perform the following steps: 


1. Type close #1 and press ENTER. 

2. Open the printer as I/O device #1. 

3. Type open "Ipt1:" for output as #1 and press ENTER. 
4. Type call digiklok and press ENTER. 


The date and time information is output to your printer. 


Adding to a Quick Library 


If you want to write professional-looking programs, you often need 
to use the cursor and function keys. When pressed, these keys re- 
turn a two-character ASCII code instead of a one-character ASCII 
code. The first character is always the null code, CHR$(0). The 
second character is in the range of one-character ASCII codes. For 
example, the RIGHT ARROW key produces the null code followed by the 
code 59. 

A useful utility would be a procedure that identifies which key 
has been pressed. Program 12-2, Scan The Keyboard SUB, consists 
of a few remarks and a subprogram (ScanKey) to perform this 
function. 
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DECLARE SUB ScanKey (ky$) 

REM ** Scan the Keyboard SUB ** 

' Using QuickBASIC, Chapter 12 

' Microsoft QuickBASIC 4.5 File: UQB1202.BAS 

' To be put in Quick Library; activate by: CALL ScanKey(ky$) 
' Use View Menu to see subprogram ScanKey(ky$) 


SUB ScanKey (ky$) 
' Scans the keyboard for a key press 
ky$ = ae 
DO WHILE ky$ = '* 
ky$ = INKEYS 
LOOP 
IF LEN(ky$) = 2 THEN 
ky$ = "0 +" + STRS(ASC(RIGHTS(ky$, 1))) 
ELSE 
ky$ = STRS(ASC(ky$)) 
END IF 
END SUB 


Program 12-2. Scan the Keyboard SUB 


When you press a key, the ScanKey subprogram reads it with 
the INKEY$ function and assigns what it reads to the variable, kyf. 
The INKEY$ function returns a one-character string for ASCII 
coded keys (such as A, a, 1, 2, and so on). It returns a two-character 
string for extended ASCII codes (such as Fl, F2, and the cursor- 
movement keys). The first character of a two-character string is 
always 0 (null). The second character is an ASCII code (used for 
other keys in the ASCII set). A complete list of these extended 
codes is given in Microsoft’s Programming in BASIC manual. 

When you press a key, Program 12-2 first assigns the value of 
the key to the variable ky$. It then determines the length of the 
variable kyf. If the length is 2, kyf is modified by the statement 


ky$ = “0 +" + STRS(ASC(RIGHTS (ky$,1))) 


This statement concatenates the null portion of the code ("0 +") to 
the string equivalent of the ASCII code of the second character of 
the extended code. 
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If the length of f is 1, the variable is modified to be the string 
equivalent of the ASCII code returned. This allows recognition of 
nonprintable characters (such as the ENTER key). 

When you add to a Quick library, you must give the resulting 
library a different name. The name UTIL2 is used in the following 
demonstration. 

To begin the process of creating the new Quick library, load 
QuickBASIC and UTILI from the DOS command line. 


A»QB /L B:UTIL1 


(This command assumes that drive B contains your programs and 
libraries.) Press ENTER. When the QuickBASIC Edit screen appears, 
perform one of the following steps: 


ш Load Program 12-2 if you have already entered and saved it. 


ш Enter Program 12-2 now. 


When Program 12-2 is displayed in the Edit window, access the 
Make Library command from the Run menu and press ENTER. In 
the "Quick-Library File Name" box, type b:util2 for the new li- 
brary's filename. Then press TAB to move the cursor to the Make 
Library and Exit command button. The screen should now look 
like Figure 12-4. Press ENTER to make the new library. 


l'ake Library 


t 1 Produce Debug Code 
< Make Library > Make Library and Exit Й < Cancel > < Help? 


Figure 12-4. Quick library name entered 
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Once again, you can watch the progress of the library's creation 
on the display screen. The result is shown in Figure 12-5. 

You successfully made a Quick library (UTIL2) and then re- 
turned to DOS. You can verify this by looking at the directories of 
drives À and B. The demonstration added files to both drives, as 
shown in Table 12-4. 

Notice that there are two .OBJ files in the directory of drive A, 
one for each module. You can delete these object files now if you 
wish, since you will have no further use for them. Remember to 
keep the .LIB and .QLB files in drive B. 


Testing Quick Library 
UTIL2 


Load QuickBASIC and the Quick library UTIL2 from the DOS 
prompt with the following command 


BC B:NUQB1202.BAS/T/C:512; 

Microsoft (R) QuickBASIC Compiler Version 4.50 
Copyright (C) Microsoft Corp. 1982-1988. 

All rights reserved. 

Simultaneously published in the U.S. and Canada. 


44061 Bytes Available 
43601 Bytes Free 


0 Warning Error(s) 
0 Severe Error(s) 
LINK /QU /NOE /NOD:BCOM45.LIB UQB1202+B:UTIL].LIB, 
B:\UTIL2.QLB,NUL,A: \BQLB45.LIB; 


Microsoft (R) Overlay Linker Version 3.69 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


LIB B:\UTIL2.LIB+UQB1202+B:UTILI.LIB; 


Microsoft (R) Library Manager Version 3.14 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


A». 


Figure 12-5. Making Quick library UTIL2 
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Directory of BÀ 


UQB1201 BAS 372 
UTILI OLB 5591 
UTILI LIB 1551 
UQB1202 BAS 491 
UTIL2 QLB 6206 
UTIL2 LIB 2581 
Directory of A:\ 

QB EXE 278804 
BC EXE 97481 
BOLB45 LIB 24789 
LINK EXE 69133 
LIB EXE 35643 
UQB1201 OBJ 886 
UQB1202 OBJ 1064 


Table 12-4. Directories After UTIL2 is Made 


A>QB /L B:UTIL2 


Before you test UTIL2, go to the View menu, select SUBs, and 
see if you can find any subprograms. Remember, the subprograms 
are now in the UTIL2 Quick library. Because a Quick library is 
essentially a binary file, you cannot view its contents from Quick- 
BASIC or any other text editor. However, one of your Quick- 
BASIC distribution disks contains a file called QLBDUMP.BAS, 
located in a subdirectory named SOURCE. This utility allows you 
to list all the procedures in a given library. 

Follow these steps to view the contents of a Quick library: 


1. Load QuickBASIC. 
2. Load and run QLBDUMP.BAS. 


3. Enter the name of the Quick library you wish to examine. In this 
case, enter the name as follows. 
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B:UTIL2.QLB 


If the specified file exists and is a Quick library, the QLBDUMP 
program displays a list of symbol names that are included in the 
library Names of procedures in the library are included in the list 
of symbol names. 

For example, OLBDUMP.BAS produced the list shown in Ta- 
ble 12-5 for the demonstration library UTIL2. Observe the last few 
items listed under "Code Symbols." You will see the names 
SCANKEY and DIGIKLOCK. These are the names ofthe included 
procedures. 

Now, test UTIL2. This Quick library has two subprograms, 
DigiKlok and ScanKey(ky$). You tested DigiKlok in UTILI, but 
make sure it is in UTIL2 by pressing F6 to move the cursor to the 
Immediate window. Also, make sure your printer is on line if you 
plan to use it as the output device. Then perform the following 
steps: 


1. Type cls and press ENTER. 
2. Press ENTER again to return to the Immediate window. 


3. Enter the appropriate OPEN statement for your output device 
("scrn:” or "Ipt1:^). 


4. Type call digiklok and press ENTER. 


The date and time are sent to your output device (screen or 
printer). The subprogram in the demonstration Quick library 
printed 


Date 01-01-1990 
Time 12:14:13 


To test the ScanKey subprogram, follow these steps: 
1. Type call scankey(ky$) and press ENTER. 


2. Press the UP ARROW key. Then press ENTER to return to the Imme- 
diate window. 


3. Type print ky$ and press ENTER. 
Your printer or display should print 
0-72 
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Code Symbols 


.brtctl 
.execve 
.exit 
.main 
.spawnve 
— TEXT, END 
SCANKEY 
SetUEvent 
DIGIKLOK 


Data Symbols 


FIWRQQ 
FJSRQQ 
b, erradr 
b, ULVars 
b errlin 
b errnum 
FISRQQ 
.end 
STKHQQ 
.errno 
.edata 
FIARQQ 
FJARQQ 
FICRQQ 
FJCRQQ 
FIDRQQ 
FIERQQ 
b. errmod 
b. ULSymSeg 
.environ 


Table 12-5. Output of QLBDUMP.BAS 


the extended character code for the UP ARROW key. The message 
"Press any key to continue" is displayed at the bottom ofthe screen. 
Now, try another test by performing the following steps: 
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1. Press any key to return to the Immediate window. 


2. Move the cursor up to the line with the CALL ScanKey(ky$) 
command, and press ENTER again. 


3. Press the F4 key. Then press ENTER to return to the Immediate 
Window. 


4. Type print ky$ in the Immediate window and press ENTER. 


Your printer or display should print 


0 + 62 


the extended character code for the F4 key, just below the previous 
code for the UP ARROW key. This proves that UTIL2, the demonstra- 
tion Quick library, passed the test. 


Adding More to a 
Quick Library 


Program 12-3, Time Delay SUB, is the last feature to add to the 
demonstration Quick library. It produces a time delay of a speci- 
fied number of seconds. The length of the delay is set in a main 
program, and then the time delay routine is called. QuickBASIC's 
TIMER function terminates the delay when the specified number 
of seconds have elapsed. 

Enter Program 12-3 and save it as UQB1208.BAS. Then exit 
from QuickBASIC and return to DOS. Load QuickBASIC, 
UQB1203.BAS, and the Quick library UTIL2 from the command 
line with the following command: 


A»QB B:UQB1203 /L B:UTIL2 
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DECLARE SUB Delay (secl) 

REM ** Time Delay SUB ** 

' Using QuickBASIC, Chapter 12 

' Microsoft QuickBASIC 4.5 File: UQB1203.BAS 

' To be put in Quick Library; activate by: CALL Delay(sec!) 
' Main program must set number of seconds (secl) 

' Use View Menu to see subprogram Delay(sec!) 


SUB Delay (sec!) 

' Gives a time delay specified (seconds) in main program 
TurnOn! = TIMER 
DO UNTIL TIMER >= TurnOn! + secl 
LOOP 

END SUB 


Program 12-3. Time Delay SUB 


When you have loaded all these files, Program 12-3 appears in 
the Edit window. Use the same steps as before to make a new Quick 
library: Access the run menu, select the Make Library command, 
enter the Quick library filename UTIL3, press the ТАВ key to 
highlight the Make Library and Exit command button, and press 
ENTER. 

Watch the screen as the new Quick library is created. By now 
you will recognize when Microsoft’s compiler, linker, and Library 
Manager go to work to build Quick library UTIL3. 

When the process is finished, notice how full the directory of the 
disk in drive B is getting. The directory of the demonstration disk 
is shown in Table 12-6. 

Since UTIL3.QLB contains all the subprograms in UTIL1.QLB 
and UTIL2.QLB, keep UTIL3.QLB and erase the other two. Do 
the same for the .LIB files. Erase UTIL1.LIB and UTIL2.LIB, but 
keep UTIL3.LIB. In addition, you can erase all the .OBJ files 
created when makingjthe Quick libraries from the disk in drive A. 
Table 12-7 shows the files left on both disks after the .OB] files have 
been erased. 
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Directory of BA 

UQB1201 BAS 372 
UTIL! QLB 5591 
UTILI LIB 1551 
UQB1202 BAS 491 
UTIL2 QLB 6206 
UTIL2 LIB 2581 
UQB1203 BAS 441 
UTIL3 QLB 6385 
UTIL3 LIB 3611 
Table 12-6. Directory of Demonstration Disk 

Directory of AX 

QB EXE 278804 
BC EXE 97481 
BOLB45 LIB 24789 
LINK EXE 69133 
LIB EXE 35643 
QB INI 48 
Directory of BÀ 

UQB1201 BAS 372 
UQB1202 BAS 491 
UQB1203 BAS 441 
UTILS QLB 6385 
UTIL3 LIB 3611 


Table 12-7. Directories After Erasures 
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Testing Quick Library 
UTIL3 


You used the Immediate command to test the first two Quick 
libraries. This time you can use Program 12-4, Test UTIL3, to test 
all three subprograms in the UTIL3 Quick library. Do not enter 
Program 12-4 yet. First, load QuickBASIC and UTIL3 with the 
following command: 


A>QB /L B:UTIL3 


REM ** Test UTIL3 ** 

' Using QuickBASIC, Chapter 12 

' Microsoft QuickBASIC 4.5 File: UQB1204.BAS 
' Used to test Quick Library UTIL3 


CLS 
DO 
INPUT "Output to screen or printer (S or P)"; ky$ 
LOOP WHILE INSTR("SsPp", ky$) = 0 
SELECT CASE ky$ 
CASE "S", "s* 
OPEN "SCRN:" FOR OUTPUT AS #1 
CASE "P", "р" 
OPEN "LPT1:" FOR OUTPUT AS «1 
END SELECT 
CALL DigiKlok 
secl = 5 
LOCATE 12, 25: PRINT "Please wait, I'm thinking." 
CALL Delay(secl) 
LOCATE 12, 25: PRINT ЅРАСЕ$(27) 
PRINT "Press a key to print character values.” 
PRINT : PRINT “Press the ENTER key to quit." 


REM ** Wait for Keypress ** 
DO 


Program 12-4. Test UTIL3 
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CALL ScanKey(ky$) 

PRINT #1, : PRINT #1, ky$ 
LOOP UNTIL ky$ = " 13" 
CLOSE #1 
END 


Program 12-4. Test UTIL3 (continued) 


When the load is completed, a nearly blank screen appears, with 
the cursor in the Edit window. Now, enter Program 12-4. 

Save Program 12-4 as UDOB1204.BAS. Make sure your printer 
is on line if you plan to use it. Then run the program. 

First, the prompt "Output to screen or printer (S or P)?" ap- 
pears at the top of the Display screen. Enter s or p. If you type P, 
the date and time are sent to the printer; if you type S, the date and 
time are printed on the screen. 

Next, the following message is printed at the center of the 
Display screen: 


Please wait, I'm thinking. 


The computer calls the subprogram Delay and waits for five sec- 
onds (because a time delay was set for that length). After the delay, 
you are prompted to press a key. 


Press a key to print character values. 


Press the ENTER key to quit. 


When you press a key, your printer or screen prints the key's 
character code. Figure 12-6 shows the date and time that were 
printed and the character codes for the keys that were pressed: UP 
ARROW, DOWN ARROW, LEFT ARROW, RIGHT ARROW, Fi, F2, F3, F4, and ENTER. All 
three subprograms in the UTIL3 Quick library worked correctly. 
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This Quick library demonstration just begins to describe the 
utilities that might be put in a Quick library. You can use UTIL3 
as a base and add a more complete set of utilities, or you can 
discard it and build your own Quick library. In fact, you will 
probably want to create many Quick libraries for different pur- 
poses. With a little planning, your Quick libraries will save you 
much time when you write, load, and run programs. 


REVIEW 


Quick libraries allow you to add frequently used procedures to any 
of your QuickBASIC programs. Quick library procedures behave 
like QuickBASIC statements. They can be called from a Quick- 
BASIC program or executed from the Immediate window. 


Date 01-02-1989 
Time 17:39:03 
0+72 
0+80 
0+75 
0+77 
0+59 
0+60 
0+61 
0+62 
13 


Press any key to continue 


Figure 12-6. Output of Program 12-4 
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With the appropriate files available, you can create Quick li- 
braries from within the QuickBASIC environment. You can add 
procedures to a previously created Quick library to form a more 
complete Quick library. 

This chapter included demonstrations of creating a new Quick 
library and adding procedures to an existing library. 

This concludes your introduction to using QuickBASIC, ver- 
sion 4.5. When discussing a programming environment with such 
vast capabilities, it is impossible to cover all aspects of the system. 
It is hoped that some of the flavor of QuickBASIC has been con- 
veyed by this book and that the book spurs you into discovering 
further capabilities on your own. 


ASCII Codes for 
the PC 


Decimal Hexadecimal Control 
Value Value Character Character 

0 00 NUL Null 

1 01 SOH e 

2 02 STX e 

3 03 ETX е 

4 04 ЕОТ * 

5 05 ENQ ob 

6 06 ACK a 

7 07 BEL Beep 

8 08 BS a 

9 09 HT Tab 
10 0A LF Line-feed 
11 OB VT Cursor home 
12 0C FF Form-feed 
13 ор СЕ Enter 


Table А-1. ASCII Codes for the PC 
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Decimal Hexadecimal 
Value Value 
14 OE 
15 OF 
16 10 
17 11 
18 12 
19 13 
20 14 
21 15 
22 16 
23 17 
24 18 
25 19 
26 1A 
27 1B 
28 1C 
29 1D 
30 IE 
31 iF 
32 20 
33 21 
34 22 
35 23 
36 24 
57 25 
38 26 
39 27 
40 28 
41 29 
42 2A 
43 2B 
44 2C 
45 2D 
46 2E 
47 2F 
48 30 
49 31 
50 32 


Control 
Character Character 
SO 
S1 
DLE 
DCI 
DC2 
DC3 
DC4 
NAK 
SYN 
ETB 
CAN 
EM 
SUB LN 
ESC — 
FS Cursor right 
GS Cursor left 
RS Cursor up 
US Cursor down 
SP Space 
! 
* 
$ 
96 
& 
( 
) 
k 
+ 
/ 
0 
1 
2 


Table A-1. ASCII Codes for the PC (continued) 
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Decimal Hexadecimal Control 

Value Value Character Character 
51 33 3 
52 34 4 
53 35 5 
54 36 6 
55 37 7 
56 38 8 
57 39 9 
58 3A : 
59 3B ; 
60 3C « 
61 3D = 
62 3E > 
63 3F ? 
64 40 @ 
65 41 A 
66 42 B 
67 43 C 
68 44 D 
69 45 E 
70 46 F 
71 47 G 
72 48 H 
73 49 I 
74 4A J 
75 4B K 
76 4C L 
77 4D M 
78 4E N 
79 4F О 
80 50 Р 
81 51 Q 
82 52 R 
83 53 S 
84 54 T 
85 55 U 
86 56 У 
87 57 W 


Table A-1. ASCII Codes for the PC (continued) 
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Decimal Hexadecimal Control 
Value Value Character Character 
88 58 X 
89 59 Y 
90 5A Z 
91 5B [ 
92 5C \ 
93 5D J 
94 5E 2 
95 5F = 
96 60 : 
97 61 a 
98 62 b 
99 63 с 
100 64 а 
101 65 е 
102 66 f 
103 67 E 
104 68 h 
105 69 i 
106 6A j 
107 6B k 
108 6C 1 
109 60 т 
110 6E n 
111 6F о 
112 70 P 
113 71 q 
114 72 r 
115 73 s 
116 74 t 
117 75 u 
118 76 v 
119 77 w 
120 78 x 
121 79 y 
122 7A z 
123 7B ( 
124 7C Н 


Table А-1. ASCII Codes for the PC (continued) 


ASCII Codes for the PC 411 


Decimal Hexadecimal Control 

Value Value Character Character 
125 7D } 
126 7E z 
127 7F DEL ea 
198 80 C 
129 81 ü 
130 82 é 
131 83 à 
132 84 a 
133 85 a 
134 86 А 
135 87 ¢ 
136 88 é 
137 89 é 
138 8A è 
139 8B i 
140 8C i 
141 8D i 
142 8E A 
143 8F A 
144 90 É 
145 91 е 
146 99 A 
147 93 ° 
148 94 6 
149 95 о 
150 96 ü 
151 97 ü 
152 98 y 
153 99 Ó 
154 9A Ü 
155 9B [4 
156 9C £ 
157 9D y 
158 9E Pt 
159 9F f 
160 АО á 
161 Al i 


Table A-1. ASCII Codes for the PC (continued) 
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Decimal Hexadecimal Control 

Value Value Character Character 
162 A2 6 
163 A3 ú 
164 A4 n 
165 A5 N 
166 A6 Е 
167 А7 o 
168 А8 4 
169 А9 = 
170 АА ~ 
171 AB 1% 
172 AC Yq 
173 AD ; 
174 AE 

175 AF 

176 BO 

177 Bl 

178 B2 

179 B3 

180 B4 

181 B5 

182 B6 

183 B7 m 
184 B8 Aa 
185 B9 al 
186 BA || 
187 ВВ = 
188 BC =» 
189 BD Ш 
190 ВЕ - 
191 BF a 
192 co L 
193 C1 ae 
194 C2 т 
195 C3 F 
196 C4 - 
197 C5 t 
198 C6 E 


Table A-1. ASCII Codes for the PC (continued) 
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Decimal Hexadecimal Control 

Value Value Character Character 
199 C7 [i 
200 C8 t 
201 C9 ie 
202 CA зь 
203 СВ 3r 
204 cc I 
205 CD = 
206 CE ЧЕ 
207 СЕ = 
208 DO aL 
209 Dl = 
210 D2 т 
211 D3 uL. 
212 D4 = 
218 D5 = 
214 D6 m 
215 D7 + 
216 D8 + 
217 D9 2 
218 DA r 
219 DB a 
220 DC = 
221 DD [| 
222 DE | 
223 DF = 
224 EO a 
225 El В 
226 E2 r 
227 E3 T 
228 E4 У 
299 Е5 с 
230 E6 H 
231 E7 T 
232 E8 ф 
233 Е9 ө 
234 EA [e] 
235 EB $ 


Table А-1. ASCII Codes for the PC (continued) 
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Decimal Hexadecimal Control 

Value Value Character Character 
236 EC oo 
237 ED e 
238 EE € 
239 EF n 
240 ЕО = 
241 ЕІ + 
242 F2 > 
243 F3 < 
244 F4 f 
245 F5 J 
246 F6 + 
247 F7 х 
248 F8 e 
249 F9 . 
250 FA : 
251 FB Vv 
252 FC n 
253 FD 2 
254 FE н 
255 FF (blank) 


Table А-1. ASCII Codes for the PC (continued) 


QuickBASIC 
Reserved Words 


The following words are reserved in QuickBASIC. They may not 
be used as labels or as names of variables or procedures. 


ABS 
ACCESS 
ALIAS 
AND 
ANY 
APPEND 
AS 

ASC 
ATN 
BASE 
BEEP 
BINARY 
BLOAD 
BSAVE 
BYVAL 


CALL 
CALLS 
CASE 
CDBL 
CDECL 
CHAIN 
CHDIR 
CHR$ 
CINT 
CIRCLE 
CLEAR 
CLNG 
CLOSE 
CLS 
COLOR 


COM 
COMMAND$ 
COMMON 
CONST 
COS 
CSNG 
CSRLIN 
CVD 
CVDMBF 
CVI 

CVL 

CVS 
CVSMBF 
DATA 
DATE$ 
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DECLARE 
DEF 
DEFDBL 
DEFINT 
DEFLNG 
DEFSNG 
DEFSTR 
DIM 

DO 
DOUBLE 
DRAW 
ELSE 
ELSEIF 
END 
ENDIF 
ENVIRON 
ENVIRON$ 
EOF 

EQV 
ERASE 
ERDEV 
ERDEV$ 
ERL 

ERR 
ERROR 
EXIT 

EXP 
FIELD 
FILEATTR 
FILES 

FIX 

FOR 

FRE 
FREEFILE 
FUNCTION 
GET 
GOSUB 
GOTO 


HEX$ 

IF 

IMP 
INKEY$ 
INP 
INPUT 
INPUT$ 
INSTR 
INT 
INTEGER 
IOCTL 
IOCTL$ 
IS 

KEY 
KILL 
LBOUND 
LCASE$ 
LEFT$ 
LEN 
LET 
LINE 
LIST 
LOC 
LOCAL 
LOCATE 
LOCK 
LOF 
LOG 
LONG 
LOOP 
LPOS 
LPRINT 
LSET 
LTRIM$ 
MID$ 
MKD$ 
MKDIR 
MKDMBF$ 


MKI$ 
MKL$ 
MKS$ 
MKSMBF$ 
MOD 
NAME 
NEXT 
NOT 


PRESET 
PRINT 
PSET 
PUT 
RANDOM 
RANDOMIZE 
READ 
REDIM 
REM 
RESET 
RESTORE 
RESUME 
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RETURN 
RIGHT$ 
RMDIR 
RND 
RSET 
RTRIM$ 
RUN 
SADD 
SCREEN 
SEEK 
SEG 
SELECT 
SETMEM 
SGN 
SHARED 
SHELL 
SIGNAL 
' SIN 
SINGLE 
SLEEP 
SOUND 


SPACE$ 
SPC 
SQR 
STATIC 
STEP 
STICK 
STOP 
STR$ 
STRIG 
STRING 
STRING$ 
SUB 
SWAP 
SYSTEM 


TRON 
TYPE 
UBOUND 
UCASE$ 
UEVENT 
UNLOCK 
UNTIL 
USING 
VAL 
VARPTR 
VARPTR$ 
VARSEG 
VIEW 
WAIT 
WEND 
WHILE 
WIDTH 
WINDOW 
WRITE 
XOR 
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Trademarks 


Apple? 

Apple IIGS® 
Atari? 
GW-BASIC® 
Hewlett-Packard® 
HP" 

IBM® 


Microsoft® 
MS-DOS® 
Tandy 1000™ 


Apple Computer, Inc. 
Apple Computer, Inc. 
Atari, Inc. 

Microsoft Corporation 
Hewlett-Packard Company 
Hewlett-Packard Company 
International Business Machines 
Corporation 

Microsoft Corporation 
Microsoft Corporation 
Tandy Corporation 


Index 


& (type declaration character), 66 

* (wild card in MS-DOS file names), 53, 
58 

$ (type declaration character), 66 

! (type declaration character), 66 

% (type declaration character), 66 

# (type declaration character), 66 


A 
Active window, 167 
Add Watch command, 60, 328, 330, 333 
Adding to a Quick library, 395 
AddRecords SUB, 255 
Advantages of Quick libraries, 382 
Alpha.Dat file, 289 
Alphanumeric line label, 68 
ALT key (to select menus) 

ALT+E, 125 

ALT+F, 41 

ALT+R, 45 
Animated debugging, 321 


Apostrophe (' as REMARK), 12, 19 
AppendFile SUB, 194, 293 
Applesoft BASIC, 7 
Argument of a function, 69, 137 
Array 

dimensioning, 146 

DYNAMIC, 148 

numeric, 147 

passing to FUNCTION, 150 

passing to SUB, 154 

STATIC, 147 

string, 147 
ArrayPrint SUB, 160 
ArraySum% FUNCTION, 152 
ArraySum! FUNCTION, 154 
ASCII codes, 25, 311, 355, 392, 407 
ASCII format for compatibility with 

QuickBASIC, 13, 37, 54 

ASCII storage in data file, 233 
ASCII text file, 173 
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B 
Backslash (X) operation, 67, 256 
BACKSPACE key, 121 
Backup copies, 34 
BASIC, 1 
Applesoft, 7 
BASICA, 6 
compiled, 5 
Dartmouth, 1, 146 
GW-BASIC, 6 
History, 2 
interpreted, 5 
keyword conventions, 20 
Microsoft, 6 
BC compiler, 390 
BC.EXE file, 345, 384, 390 
BCOM45.LIB file, 346, 357 
Binary file, 397 
Binary format (numbers in random-access 
file), 238 
Block 1F control structure, 88 
Boolean function, 79 
BQLB45.LIB file, 384, 391 
Break on Errors command (Debug 
menu), 340 
Breakpoint, 60, 318, 336 
removing, 338 
BRUN45.EXE file, 347, 349 
BRUN45.LIB file, 346, 357 
BubbleSort SUB, 155, 330 
Bugs, 317. See also Debugging 
prevention, 318 
removing, 317-341 
Buttons 
DELETE, 280 
(Ok, Cancel, Help), 45 
(Make EXE, Make EXE and EXIT, 
Cancel, Help), 351, 359 
(Make Library, Make Library and 
Exit, Cancel), 387 


с 

CALL statement (for SUB), 143, 330 
Calling a FUNCTION, 137 

Cancel button, 45, 351, 362, 387 
CASE clause, 93 


CASE ELSE clause, 94 
CHAIN statement, 352, 361 
Change command (Search menu), 60 
Clear all breakpoints command (Debug 
menu), 60 
Clear command (Edit menu), 126, 202 
Clearing breakpoints, 338 
Clipboard, 125, 200 
CLOSE statement, 178, 228, 242 
Code Symbols (QBLDUMP utility), 398 
Comma (field separator), 213, 216 
COMMAND.COM file (MS-DOS), 35, 
344, 361 
Command line option (/L), 384, 392 
COMMON statement, 352, 361 
Compiler, 5 
Compiling a GW-BASIC program, 54 
Compiling a QuickBASIC program, 37 
CONST statement, 262 
Contents command (Help menu), 61 
Continue command (Run menu), 48, 339 
Control structures, 87 
Conventions and style, 16 
BASIC keywords, 20 
FOR. . .NEXT loops, 22 
line labels, 68 
line numbering, 21 
multiple statements, 23 
operation symbols, 21 
programming, 18 
punctuation, 21 
relational symbols, 21 
REM statements, 9, 10, 19 
variables, 20 
WHILE. . .WEND loops, 22 
Copy command (Edit menu), 59, 128 
CopyEdit SUB, 293 
CopyFile SUB, 282 
Copying a sequential file, 276 
Copying text, 128 
CountChars SUB, 162 
Create File command, 104 
CreateFile SUB, 180 
CTRL+BREAK, 320, 350 
CTRL+END (editing), 108 
сти. +ғ10 (expand window), 168 


Index 


CTRL+HOME (editing), 57, 108 
CTRL*Q, Y (editing), 122 
CIíL* Y (deleting text with), 50, 122 
Current Module, 46 
Cursor, 39 
Cursor movement, 106 
beginning of file, 108 
beginning of line, 108 
down one line, 108 
end of file, 108 
end of line, 108 
left one character, 110 
left one word, 109 
right one character, 110 
right one word, 109 
up one line, 108 
Cut command, 59, 125, 200 


D 
Dartmouth BASIC, 1, 146 
Data files, types, 170 
random-access, 173, 238 
sequential (structured), 170, 171 
sequential (unstructured), 171 
DATA statement, 169, 210 
Data storage, 67, 238 
Data type, 153 
Debug Easy menu, 60, 319 
Add Watch command, 60, 319 
Clear All Breakpoints command, 60, 
319 
Delete Watch command, 60, 319 
Instant Watch command, 60, 319 
Toggle Breakpoint command, 60, 
319 
Debug Full menus, 319 
Add Watch command, 319, 328 
Break on Errors command, 319, 340 
Clear All Breakpoints command, 319 
Delete All Watch command, 319, 336 
Delete Watch command, 319 
History On command, 319, 339 
Instant Watch command, 319, 336 
Set Next Statement command, 319, 
340 
Toggle Breakpoint command, 319, 
337 
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Debug Full menus, continued 
Trace On command, 319, 321 
Watchpoint command, 319, 331 
Debugging, 317-341 
Add Watch command, 60, 319, 328 
Add Watch dialog box, 332 
animated trace, 321 
Break on Errors command, 340 
breakpoint, 318, 336 
History On command, 339 
Immediate window, 318 
Procedure Step, 320, 325 
removing breakpoints, 338 
Set Next Statement (a command), 
340 
Single Step, 320, 324 
tools, 317, 339 
Trace On command, 321 
tracing, 321 
watch expressions and variables, 318 
Watchpoint command, 320, 325 
Watchpoint command dialog box, 
331 
Watch window, 328 
DECLARE statement, 141, 145, 185, 199, 
281 
DEF FN statement, 71 
DEF FN. ..END DEF defined, 82 
Default variable type, 67 
DEFtype, 67 
DEL key, 120 
Delay SUB, 401 
Delete All Watch command, 319, 336 
DELETE button, 280 
Delete Watch command (Debug menu), 
60, 336 
Deleting a SUB, 280 
Deleting text, 120 
character to left of cursor, 121 
Character under cursor, 120 
entire current line, 122 
to end of current line, 122 
Delimiters (in PRINT #), 219 
Descriptive file names, 64, 175 
Dialog boxes, 38 
DigiKlok SUB, 388, 392 
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DIM statement, 147, 246, 255, 278 ELSEIF statement, 89 
AS clause, 246 END DEF statement, 84 
SHARED, 278 END FUNCTION statement, 137 
TO clause, 147 END IF statement, 89 
Dimensioning an array, 147 End of File (EOF), 187 
Disks, backing up, 34 End of record, 213 
Display command (Options menu), 60 END SELECT statement, 92 
DO statement, 73 END statement, 73, 327 
DO. . .LOOP control structure, 73, 94, END SUB statement, 143 
212, 241 EOF function, 187 


Doodle.One file, 226 
Doodle.Two file, 226 
DOS Shell command (File menu), 104 


Error dialog box, 50 
Error messages (making library), 391 


Double precision Be key, 58 А 
function, 72 .EXE extension, 340. See also Executable 
number, 66 files 


EXE File Name: box, 349 


Drawing SUB, 366 : 
EXE Requiring BRUN45.EXE, 349 


Dummy variable, 83 


DYNAMIC array, 148 Executable files, 343 
creating, 344 
E defined, 343 


files needed, 463 


E 'stem, 36, 40, 104 : 
азу тезу running from DOS, 359, 378 


Eccentricity (circle), 366, 370 


Edit2.Dat file, 303 Exit command (File menu), 42 
EditAlph.Dat file, 301 EXIT DEF statement, 84 
Edit Easy menus, 59, 122 EXIT DO statement, 73, 99 
Copy command, 59 EXIT FUNCTION statement, 137 
Cut command, 59 EXIT SUB statement, 143 
Paste command, 59 Exiting QuickBASIC, 42, 104 
Edit Full menus, 122 Explicit delimiters (in PRINT #), 219 
Clear command, 126, 202 
Copy command, 128 F 
Cut command, 125 Field, in a file, 171 
New FUNCTION command, 130, fixed-length, 174, 249 
139 free-form, 171 


New SUB command, 130 
Paste command, 127, 201 
Undo command, 126 
Editing a file, 296 
Editing screen, 39 
Editor, 39, 135 
automatic formatting, 56, 65 


in random-access file, 174, 238 
length in sequential file, 171 
separator, 213, 216 
variable-length, 172 

File 
ASCII text, 173 


clipboard, 125 ASCII storage in data file, 233 
procedure organization, 135 BC.EXE, 345, 384, 390 
selecting text, 123 BCOM45.LIB, 346 


syntax checking, 104 BQLB45.LIB, 384, 391 


File, 


File 


File 
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continued 

BRUN45.EXE, 347, 349 

BRUNA5.LIB, 345, 357 

COMMAND.COM, 35, 344, 361 

end of, 187 

executable, 343 

field, 171 

LIB.EXE, 384, 390 

LINK.EXE, 345, 384, 390 

menu. See File Easy menus, File Full 
Menus 

merging, 130, 199 

names, 44, 175 

NotePad.Dat, 176 

object (.OBJ), 359, 390 

paths, 347 

QD.EXE, 35, 345, 384 

QB45QCK.HLP, 35, 345 

QBLDUMP.BAS, 383, 397 

random-access, 173, 238 

records, 171, 238 

sequential, 170, 176, 276 

source (.BAS), 382 

Stand-Alone EXE, 349, 361, 377 

StateAbr.Dat, 221 

structured, 171 

types, 170 

unstructured, 171 

Easy menus, 36, 40, 104 

Exit command, 42 

New Program command, 42 

Open Program command, 42, 52 

Print command, 42 

Save As command, 42, 51 

Full menus, 104 

Create File command, 104 

DOS Shell command, 104 

Exit command, 104 

Load File command, 104 

Merge command, 104 

New Program command, 104 

Open Program command, 104 

Print command, 104 

Save All command, 104 

Save As command, 104 

Save command, 104, 184 

Unload File command, 104, 383 


File Name: box, 385 
File names, 44, 175, 385 
FileName.Dat, 175 
Files (by name) 
Alphabet.Dat, 289 
Doodle.One, 226 
Doodle.Two, 226 
Edit2.Dat, 303 
Editalph.Dat, 301 
FileName.Dat, 175 
RemFile.Bas, 283 
StateAbr.Dat, 221 
Temp.Bas, 283 
Temp.Dat, 289 
Find command (Search menu), 60 
Fixed-length field, 174, 249 
Fixed-length record, 173, 249 
Floating-point numbers, 66 
FNafterkeep$ function, 87 
FNafterpurge$ function, 87 
FNcountchr^o function, 100 
FNDaysInMonth^6 function, 94 
FNflip$ function, 78 
FNleap% function, 79 
FNmax function, 76 
FNmin function, 76 
FNrndchr$ function, 80 
FNrndint function, 76 
FNrndvowel$ function, 78 
FNrndword$ function, 90 
FNroll3d6% function, 78 
FNroundcnt¥ function, 65, 73 
FNsqueeze$ function, 83 
FNupsqueeze$ function, 86 
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Format changes by QuickBASIC, 56, 65, 


220 
Format dialog box, 74 
FORMAT (system disk), 35 
FOR. . .NEXT loop, 22, 308 


Full menus command (Options menu), 60 


Full menu system, 104 
Function 
argument, 69, 137 
Boolean, 79 
double-precision, 72 
H key, 323 
F6 key, 392 
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Function, continued 
F6 key, 324 
ғо key, 326 
logical, 79 
long integer, 75 
multiline, 82 
numeric, 70, 75 
short integer, 75 
single-line, 71 
single-precision, 75 
string, 70 
FUNCTION, 136 
ArraySum, 151 
procedure, 136 
Squeezer$, 138 
statement, 137 
SubTotal#, 153 
FUNCTION. ..END FUNCTION, 136, 
318 
View and edit, 136 
Functions, 69 
INKEY$, 394 
LBOUND, 148 
LCASE$, 70 
LEN, 240, 256 
LOF, 228 
TAB, 218, 250 
TIMER, 400 
UBOUND, 148 
UCASES, 70, 138 


G 

GET# statement, 246, 308 
GetRecords SUB, 262 
GOTO statement, 69 
Graph SUB, 355 
GW-BASIC, 6 


H 

Hard disk, 33, 344 

Help button, 45 

Help menu, 60 
Contents command, 61 
Help on Help command, 61 
Index command, 61 
Topic: command, 61 


Help on Help command (Help menu), 61 


History of BASIC, 2 
History On command, 339 


I 
IBM BASICA, 6 
IF... block control structure, 88 
Immediate window, 40, 318, 382 
Included Lines command (View menu), 
59 
Index command (Help menu), 61 
Info SUB, 365 
INKEY$ function, 394 
INPUT* statement, 191 
Insert mode, 113 
Inserting text, 115 
above current line, 120 
below current line, 120 
Instant Watch command (Debug menu), 
60, 336 
Integer, 
division, 67, 256 
long, 66 
short, 66 
Interpreter, 5 
1/O devices, 388, 392 


K 
Kemeny, John G., 1 
Key 

H, 323 

F6, 392 

F8, 324 

Flo, 326 
Keywords conventions, 20 
Keywords, QuickBASIC, 415 
Kurtz, Thomas E., 1 


L 

L, command line option, 384, 392 
Label SUB, 357, 365 

Labels (line), 68 

Languages in Quick library, 381 
LBOUND function, 148 
LCASES function, 70 

LEN - clause, 240 

LEN function, 240, 256 
LIB.EXE file, 381, 384, 390 
Library Manager, 381, 390 


index 


Library types, 381, 390 

Library work disk, 352 

LINE INPUT statement, 178, 227 

LINE INPUT# statement, 187, 189, 214, 
288 

Line labels, 68 

Line number, 68 

Line numbering conventions, 21 

LINK.EXE file, 345, 384, 390 

Load a File command, 104 

Loading QuickBASIC, 36 

LOCATE statement, 377 

LOF function, 228, 256 

Logical function, 79 

Long integer, 66 

Long integer function, 75 

LOOP statement, 73 


M 
Main module, 135, 166 
Make EXE and Exit button, 351, 359 
Make EXE button, 351, 359 
Make EXE File command (Run menu), 
48, 349, 361 
Make EXE File dialog box, 349, 361 
Make Library command, 384, 389, 395 
buttons, 387 
dialog box, 385 
Make Library and Exit button, 387, 389, 
395 
Make Library button, 389 
Map file, 391 
Menu bar, 40 
Menu in program, 196, 362 
Menu SUB, 362 
Menus 
Debug (Easy), 60 
Debug (Full), 319 
Edit (Easy), 59 
Edit (Full), 123 
File (Easy), 41 
File (Full), 104 
Help, 60 
Options (Easy), 60 
Options (Full), 347 
Run (Easy), 46 
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Menus, continued 
Run (Full), 339 
View (Easy), 59 
View (Full), 136, 164 
Merge command (File menu), 64, 104, 
130, 199, 281 
Merge dialog box, 64, 131, 199 
Merging files, 130, 198 
Microsoft 
BASIC, 6 
other languages in libraries, 381 
MOD operation, 67 
Modes, editing 
insert, 113 
overtype, 113 
Module (main), 135, 166 
Modules, 9, 135, 382 
Modulo arithmetic (MOD), 68 
Mouse, 39 
MS-DOS commands, 34 
Multiline function, 82 
Multiple statement convention, 23 
N 
NAME statement, 176 
NameDrive SUB, 280, 293 
NameFile SUB, 307 
New FUNCTION command (Edit menu), 
123, 139 
New FUNCTION dialog box, 139 
New FUNCTION (entering), 139 
New Program command (File menu), 42 
New SUB command (Edit menu), 123, 
145, 162, 280 
Next SUB command (View menu), 168 
NotePad.Dat file, 176 
Not watchable (while watching expres- 
sions), 333 
Number of records (random-access files), 
256 
Numbers in random-access files, 238 
Numeric array, 147 
Numeric function, 70, 75 
о 
.OBJ files, 359, 390 
Object files, 359, 390 
OK button, 45 
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On-line Help, 61 
OPEN “LPT1” statement, 388, 393 
Open Program command (File menu), 42, 
52 

Open Program dialog box, 52, 74 
OPEN "SCRN" statement, 388, 393 
OPEN statement, 177 

FOR APPEND, 193 

FOR INPUT, 228 

FOR OUTPUT, 177, 227 

FOR RANDOM, 240 

LEN = clause, 240 
Operation symbol conventions, 21 
OPTION BASE statement, 147 
Options menu, 60, 347 

Display command, 60 

Full Menus command, 60 

Set Paths command (Easy menus), 60 

Set Paths command (Full menus), 

347 
Output Screen command (View menu), 
59 

Overtype mode, 113 


P 

Parameter list, 83, 137 

Passing an array, 150 
to FUNCTION procedure, 150 
to SUB procedure, 154 

Paste command (Edit menu), 59, 127, 201 

pathname, 345, 347, 390 

PRINT # statement, 217, 228 
explicit delimiters, 219 

Print command, File menu, 45 

Print dialog box, 45 

PRINT statement, 152, 180, 228 

PRINT USING statement, 72 

PrintArray SUB, 330 

PrintFile SUB, 191 

Prnt SUB, 158 

Procedure-step tracing, 320, 325 

Produce Debug Code option, 349, 358, 

386 
Program disk, 347 
Program line, 68 


Program, REM outline, 10 
Programming conventions, 16, 18 
Programming tools, 63, 381 
Programs 
1-1, UTIL BILL (GW-BASIC), 10 
1-2, UTIL BILL (Applesoft), 11 
1-3, AVERAGE PRICE OF STOCKS 
(GW-BASIC), 15 
1-4, AVERAGE PRICE OF STOCKS 
(Applesoft), 16 
1-5, WORDSWORTH (GW-BASIC), 
24 
1-6, WORDSWORTH WITH 
GRAPHICS (QuickBASIC), 30 
2-1, COIN FLIPPER, 38 
3-1, DOLLARS AND CENTS, 72 
3-2, MINIMUM AND MAXIMUM, 
77 
3-3, LEAP YEAR OR COMMON 
YEAR, 79 
3-4, WORDMAKER NUMBER 1, 81 
3-5, STRING SQUEEZER, 85 
3-6, WORDMAKER NUMBER 2, 90 
3-7, NUMBER OF DAYS IN A 
MONTH, 95 
3-8, NUMBER OF DAYS INA 
MONTH, STRING VERSION, 97 
3-9, COUNT CHARACTERS IN A 
STRING, 100 
4-], USING QuickBASIC PROGRAM 
FILE NAMES, 105 
4-2, STRING SQUEEZER, 116 
4-3, STRING SQUEEZER WITH 
VARIABLES DESCRIBED, 119 
4-4, VALUE OF STOCKS WITH 
FUNCTION, 133 
5-1, STRING SQUEEZER WITH 
FUNCTION, 141 
5-2, STRING SQUEEZER WITH 
SUBPROGRAM, 146 
5-3, SUM AND AVERAGE OF ELE- 
MENTS OF STATIC ARRAYS, 151 
5-4, SUM AND AVERAGE OF ELE- 
MENTS OF A DYNAMIC ARRAY, 
154 


Index 


Programs, continued 

5-5, GROSS VALUE OF STOCKS, 
156 

5-6, CREATE SCRAMBLED 
NUMERIC ARRAY, 157 

5-7, BUBBLE SORT TEST 
PROGRAM, 159 

5-8, NOTE PRINTER, 160 

5-9, NOTE PRINTER AND CHAR- 
ACTER COUNTER, 164 

6-1, CREATE A FILE, 179 

6-2, SCAN A FILE, 190 

6-3, PRINT A FILE, 192 

6-4, APPEND TO A FILE, 195 

6-5, NOTEPAD WITH MENU, 197 

7-1, STATES AND 
ABBREVIATIONS, 210 

7-2, FIND POSTAL 
ABBREVIATION, 221 

7-3, FILE ЏО EXPERIMENTS, 226 

8-1, STATES AND 
ABBREVIATIONS - RANDOM 
ACCESS, 246 

8-2, PRELIMINARY NUTRITION 
FILE, 256 

8-3, FINAL NUTRITION FILE, 270 

9-1, COPY A SEQUENTIAL FILE, 
277 

9-2, NameDrive, 280, 293 

9-3, CopyFile, 282 

9-4, ScanFile, 284, 293 

9-5, COPY AND SCAN A SEQUEN- 
TIAL FILE, 285 

9-6, CREATE FILE OF LETTERS 
FROM A TO Z, 289 

9-7, COPY AND EDIT A SEQUEN- 
TIAL FILE, 290 

9-8, CopyEdit, 293 

9-9, AppendFile, 295 

9-10 FINAL COPY AND EDIT A SE- 
QUENTIAL FILE, 296 

9-11, SHUFFLE AND SORTA 
RANDOM-ACCESS FILE, 304 

9-12, NameFile, 307 

9-13, ShuffleFile, 308 

9-14, ReadRecords, 310 
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Programs, continued 
9-15, SortFile, 310 
9-16, COMPLETE SHUFFLE AND 
SORT A RANDOM-ACCESS FILE, 
312 
10-1, TIMER TEST, 320 
10-2, BAKER’S DOZEN, 325 
10-3, BAKER’S DOZEN SHUFFLE 
THEN SORT, 329 
11-1, BAR GRAPH, 353 
11-2, CIRCLE GRAPH, 362 
12-1, Print Date and Time Subpro- 
gram, 387 
12-2, Scan The Keyboard SUB, 393 
12-3, Time Delay SUB, 400 
12-4, Test UTIL3, 402 
Punctuation conventions, 21 
PUT# statement, 241 


Q 
QB Advisor, 6 
QB command, 37 
QB.EXE file, 35, 344, 384 
QB Express, 6 
QB library work disk, 346 
QB45QCK.HLP file, 35, 344 
QBLDUMP.BAS, 383, 397 
Quick library, 136, 381, 390 
advantages, 382 
File Name box, 385, 395 
QuickBASIC, 5 
backup copies, 34 
command, 37 
debugging, 317-341 
dialog boxes, 38 
editor, 20, 39, 135 
features, 6 
format changes, 56, 65, 220 
introduction to, 36 
preview, 27 
Tequirements, 33 
reserved words, 415 
variable names, 12 
work disk, 35, 345, 353 
Quitting QuickBASIC, 42, 104 
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R 
Random-access file, 173, 237 
fields, 173, 238 
length of, 240 
numbers in, 238 
record number, 262 
records, 173, 238 
shuffling, 155, 304 
sorting, 155, 304 
steps in creating, 238 
strings in, 238 
RANDOMIZE, 308, 330 
ReadFile SUB, 245 
ReadRecords SUB, 259, 310 
Records, 171 
end of, 213 
fixed length, 173, 249 
random-access, 173, 238 
variable-length, 172 
REDIM statement, 153 
Reference bar, 40 
Relational symbol conventions, 21 
REMARK statement, 8, 10, 19 
RemFile.Bas, 283 
REM outline of program, 10 
Removing breakpoints, 338 
Reserved words, 415-417 
Restart command, 48 
Rounding errors, 72 
Run Easy menus, 46, 48 
Continue command, 48 
Make EXE File command, 48 
Restart command, 48 
Start command, 47, 54 
Run Full menus, 339 
Continue command, 339 
Make EXE File command, 349, 361 
Make Library command, 384, 389, 
395 
Start command, 185 


S 

Save All command (File menu), 104 

Save As command (File menu), 42, 58, 74, 
280 


Save command (File menu), 184 
Saving a GW-BASIC program (ASCII for- 
mart), 55 
Saving a QuickBASIC program, 41 
in text format, 45 
ScanFile SUB, 186, 214, 284, 293 
ScanKey SUB, 393 
Scroll bars, 40 
Scrolling the screen, 106, 111 
down one line, 112 
down one window, 111 
left one window, 68, 112 
right one window, 68, 112 
up one line, 112 
up one window, 111 
Search menu, 59 
Change command, 60 
Find command, 60 
SearchFile SUB, 221 
SearchRecords SUB, 266 
SELECT CASE structure, 91, 197, 253, 
295 
Selected Text option (Print dialog box), 
46 
Selecting text, 123 
Sequential file, 170, 173, 276 
Set Paths command (Options menu), 60, 
347 
SETUP.EXE file, 34 
SHARED statement, 371 
SHARED (with DIM), 278 
Shell command (DOS), 104 
Short integer function, 75 
Short integer variable, 66 
ShuffleFile SUB, 308 
Shuffle SUB, 155, 330, 332 
Shuffling a random-access file, 308 
Single-line function, 71 
Single-precision number, 66 
Single-precision variable, 66 
Single-step tracing, 320, 324 
Sort (bubble), 155 
SortFile SUB, 310 
Sorting a random-access file, 155, 310 
Source files (.BAS), 382 
Split (edit in, button), 165 


Index 


Split View window, 39, 165 
Squeezer SUB, 143 
Squeezer$ FUNCTION, 138 
Stand-Alone EXE file, 349, 361, 377 
Stand-Alone library, 381, 390 
Start command (Run menu), 47, 54, 185 
StateAbr.Dat file, 221 
STATIC array, 147 
Stepping-single, 324 
Stepping single (over procedures), 326 
String function, 70 
String variable, 65 
Strings (in random-access file), 238 
Structured file, 171 
Structured style, 16, 18 
Style, programming, 16, 18 
SUB 
AddRecords, 255 
AppendFile, 194, 295 
ArrayPrint, 160 
BubbleSort, 155, 330 
CopyEdit, 293 
CopyFile, 282 
CountChars, 162 
CreateFile, 180 
Delay, 401 
DigiKlok, 388, 392 
Drawing, 366 
GetRecords, 262 
Graph, 355 
Info, 365 
Label, 357, 365 
Menu, 362 
NameDrive, 280, 293 
NameFile, 307 
PrintArray, 330 
PrintFile, 191 
Prnt, 158 
ReadFile, 245 
ReadRecords, 259, 310 
ScanFile, 186, 214, 284, 293 
ScanKey, 393 
SearchFile, 221 
SearchRecords, 266 
Shuffle, 155, 330, 332 
ShuffleFile, 308 
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SUB, continued 
SortFile, 310 
Squeezer, 143 
SUB. . .END SUB procedure, 142, 318 
Subroutine UPCASE, 25 
SUBs command (View menu), 59, 162, 
280, 383 
SUB statement, 142 
SubTotal# FUNCTION, 153 
Suspending execution (watchpoints and 
breakpoints), 331, 334 
SWAP statement, 334 


T 
TAB function, 218, 250 
Temp.Bas file, 283 
Temp.Dat file, 289 
Text, 103-134 
copying, 128 
cutting, 125 
deleting, 120 
inserting, 115 
moving cursor, 106 
pasting, 127 
selecting, 123 
undoing, 126 
TIMER function, 400 
Title bar, 40 
Toggle Breakpoint, 60, 337, 338 
Toolkit, 64, 73, 381 
Tools, debugging, 317, 339 
Topic: command (Help menu), 61 
Trace On command (Debug menu), 321, 
328 
Tracing, 319 
Tracking values during debugging, 328 
Type-declaration characters, 66 
TYPE. ..END TYPE statement, 240, 245, 
305 


U 

UBOUND function, 148 

UCASE$ function, 70, 138 

Undo command (Edit menu), 126 

Unload File command (File menu), 104, 
383 

Unstructured file, 171 
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UNTIL in DO. . .LOOP, 94, 187 
UPCASE subroutine, 25 
User-defined functions, 71 
Utility programs, 381 
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Values (watching during debugging), 328 
Variable, 65 
conventions, 16, 18 
double-precision, 66 
long integer, 66 
names, 12, 20, 65 
numeric, 65 
short integer, 66 
single-precision, 66 
string, 65, 66 
types, 65, 66 
Variable-length fields, 172 
Variable-length records, 172 
View Easy menus, 59 
Included Lines command, 59 
Output Screen command, 59 
SUBs command, 59 
View Full menus, 136, 165 
Included File command, 165 
Included Lines command, 165 
Next Statement command, 165, 167 


View Full menus, continued 
Next SUB command, 165 
Output Screen command, 165 
Split command, 165 
SUBs command, 162, 184, 383 
VIEW PRINT statement, 180 
View window, 39, 68, 331 
Viewing procedures, 165 


Ww 
Watch 

expressions and variables, 328 

window, 328 
Watchable/not watchable, 333 
Watching expressions in Watch window, 

318, 328 

Watchpoints, 318, 328, 331 
WHILE in DO. . .LOOP, 94 
WHILE. . .WEND loop, 22 
Window 

active, 167 

Immediate, 40 

View, 39 

Watch, 328 
Work disk, QuickBASIC, 35, 345 
WRITE# statement, 178, 213, 229 
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Us E IIK 
Quick BASIC 4.5 
SECOND EDITION 


Here's an excellent programming guide to Microsoft's newest version of QuickBASIC, 
version 4.5, written by two programming professionals who are well-known in the field 
of computer education. Using QuickBASIC 4.5, Second Edition, a revision of Using 
QuickBASIC, brings you up to speed on this compiler by thoroughly covering funda- 
mental to more advanced techniques. 
Inman and Albrecht approach QuickBASIC's programming environment in three stages 
50 you can find the appropriate level of instruction whether you're a beginning or an 
experienced programmer. 
Using QuickBASIC 4.5, Second Edition covers 

Subprograms 

Libraries 

Dynamic debugging 

Data file programming 
You'll have a complete understanding of how this compiler works when you finish 
Using QuickBASIC 4.5, Second Edition. 
Don Inman, co-author of the original Using QuickBASIC and Advanced QuickBASIC, 
has taught math and computer classes to high school and junior college students for 
22 years. He has written articles for major computer magazines, authored 18 computer 
books, and developed computer training materials for corporate seminars. 
Bob Albrecht, a computer veteran of 32 years, is co-founder of Dr. Dobb's Journal and 
Computer Town, U.S.A., a community computer literacy project sponsored by the 
National Sciences Foundation. Albrecht, co-author of Using QuickBASIC, QuickBASIC 
Made Easy, and Advanced QuickBASIC, has published numerous books and articles. 
Don Inman and Bob Albrecht also eui mie BASIC Teacher, a magazine devoted entirely 
to the instruction of Microsoft BASIC and QuickBASIC. In addition, they write "Your 
Basic Backpack," a monthly column in Computer Shopper magazine. 


Microsoft is a registered trademark of Micrasoft Corporation. 


